Changeset 7900 for trunk/gsdl/perllib/plugins/XMLPlug.pm
- Timestamp:
- 2004-08-06T16:23:22+12:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/XMLPlug.pm
r7508 r7900 67 67 'Doctype' => \&Doctype, 68 68 'Default' => \&Default 69 } 70 ); 69 }); 70 71 72 71 73 $self->{'parser'} = $parser; 72 74 … … 100 102 $self->{'parser'}->parsefile($filename); 101 103 }; 104 102 105 if ($@) { 103 106 … … 109 112 # we'll just continue quietly 110 113 114 ## print STDERR "**** Error is: $@\n"; 115 111 116 my ($msg) = $@ =~ /Carp::croak\(\'(.*?)\'\)/; 112 117 if (defined $msg) { … … 115 120 print $outhandle "$plugin_name failed to process $file ($msg)\n"; 116 121 } 122 117 123 # reset ourself for the next document 118 124 $self->{'section_level'}=0; 119 125 return -1; # error during processing 120 126 } 121 122 127 return 1; # processed the file 123 128 } … … 250 255 1; 251 256 257 258 259
Note:
See TracChangeset
for help on using the changeset viewer.