From 7956e5bac630584b74ddf826cf29d76a966b8bba Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 21 Mar 2001 15:40:04 +0000
Subject: fix @ISA call $ticket->mode( mode => text) to ensure text mode.

---
 fml/lib/FML/Process/TicketSystem.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'fml/lib/FML/Process/TicketSystem.pm')

diff --git a/fml/lib/FML/Process/TicketSystem.pm b/fml/lib/FML/Process/TicketSystem.pm
index e6914591..a7f3c65e 100644
--- a/fml/lib/FML/Process/TicketSystem.pm
+++ b/fml/lib/FML/Process/TicketSystem.pm
@@ -17,6 +17,9 @@ use FML::Process::Kernel;
 use FML::Log qw(Log LogWarn LogError);
 use FML::Config;
 
+@ISA = qw(FML::Process::Kernel);
+
+
 =head1 NAME
 
 FML::Process::TicketSystem -- primitive fml5 ticket system
@@ -38,9 +41,6 @@ FML::Process::TicketSystem -- primitive fml5 ticket system
 =cut
 
 
-@ISA = qw(FML::Process::Kernel Exporter);
-
-
 sub new
 {
     my ($self, $args) = @_;
@@ -73,6 +73,7 @@ sub run
     eval qq{ require $pkg; $pkg->import();};
     unless ($@) {
 	my $ticket = $pkg->new($curproc, $args);
+	$ticket->mode( { mode => 'text' } );
 
 	if ($command eq 'list') {
 	    $ticket->show_summary($curproc, $args);
-- 
cgit v1.2.1