From db1c5797b32dd075bcf455c5300ed82f9b22b8aa Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Tue, 20 Mar 2001 09:44:57 +0000
Subject: rewritten to ErrorMessages::Status module for unification of error
 buffer handling.

---
 fml/lib/FML/Ticket/System.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'fml/lib/FML/Ticket/System.pm')

diff --git a/fml/lib/FML/Ticket/System.pm b/fml/lib/FML/Ticket/System.pm
index 6da78704..045feb9d 100644
--- a/fml/lib/FML/Ticket/System.pm
+++ b/fml/lib/FML/Ticket/System.pm
@@ -13,7 +13,7 @@ package FML::Ticket::System;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
-use FML::Errors qw(error_reason error error_reset);
+use ErrorMessages::Status qw(error_set error error_reset);
 use FML::Log qw(Log LogWarn LogError);
 
 
@@ -104,7 +104,7 @@ sub _init_ticket_db_dir
 	unless (-d $db_dir) {
 	    use File::Utils qw(mkdirhier);
 	    mkdirhier($db_dir, $config->{ default_directory_mode }) || do {
-		$self->error_reason( File::Utils->error() );
+		$self->error_set( File::Utils->error() );
 		return undef;
 	    };
 	}
@@ -169,7 +169,7 @@ sub increment_id
     use File::Sequence;
     my $sfh = new File::Sequence { sequence_file => $seq_file };
     my $id  = $sfh->increment_id;
-    $self->error_reason( $sfh->error );
+    $self->error_set( $sfh->error );
 
     $id;
 }
-- 
cgit v1.2.1