Changeset 2812

Timestamp:

2001-11-01T22:00:16+13:00 (23 years ago)

Author:

sjboddie

Message:

* empty log message *

Location:

trunk/gsdl/perllib/plugins

Files:

• GAPlug.pm (modified) (1 diff)
• XMLPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/GAPlug.pm

@@ -60 +60 @@
     my ($expat, $name, $sysid, $pubid, $internal) = @_;
 
-    die if ($name ne "GreenstoneArchive");
+    die "" if ($name ne "GreenstoneArchive");
     my $outhandle = $self->{'outhandle'};
     print $outhandle "GAPLug: processing $self->{'file'}\n";

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -35 +35 @@
 
 use XML::Parser;
-use XML::Parser::Expat;
 
 my ($self);
@@ -96 +95 @@
         print $outhandle "$plugin_name failed to process $file ($msg)\n";
     }
-
-    print $@;
-
     return undef;
     }