Changeset 2812 for trunk/gsdl
- Timestamp:
- 2001-11-01T22:00:16+13:00 (22 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/GAPlug.pm
r2810 r2812 60 60 my ($expat, $name, $sysid, $pubid, $internal) = @_; 61 61 62 die if ($name ne "GreenstoneArchive");62 die "" if ($name ne "GreenstoneArchive"); 63 63 my $outhandle = $self->{'outhandle'}; 64 64 print $outhandle "GAPLug: processing $self->{'file'}\n"; -
trunk/gsdl/perllib/plugins/XMLPlug.pm
r2810 r2812 35 35 36 36 use XML::Parser; 37 use XML::Parser::Expat;38 37 39 38 my ($self); … … 96 95 print $outhandle "$plugin_name failed to process $file ($msg)\n"; 97 96 } 98 99 print $@;100 101 97 return undef; 102 98 }
Note:
See TracChangeset
for help on using the changeset viewer.