Changeset 7900 for trunk/gsdl/perllib/plugins/XMLPlug.pm

Timestamp:

2004-08-06T16:23:22+12:00 (20 years ago)

Author:

chi

Message:

Some minor changes in preparation for the introduction of METSPlug.

File:

• trunk/gsdl/perllib/plugins/XMLPlug.pm (modified) (5 diffs)

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -67 +67 @@
                         'Doctype' => \&Doctype,
                         'Default' => \&Default
-                        }
-                 );
+                        });
+
+    
+                
     $self->{'parser'} = $parser;
 
@@ -100 +102 @@
     $self->{'parser'}->parsefile($filename);
     };
+  
     if ($@) {
 
@@ -109 +112 @@
     # we'll just continue quietly
 
+    ## print STDERR "**** Error is: $@\n";
+
     my ($msg) = $@ =~ /Carp::croak\(\'(.*?)\'\)/;
     if (defined $msg) { 
@@ -115 +120 @@
         print $outhandle "$plugin_name failed to process $file ($msg)\n";
     }
+
     # reset ourself for the next document
     $self->{'section_level'}=0;
     return -1; # error during processing
     }
-
     return 1; # processed the file
 }
@@ -250 +255 @@
 1;
 
+
+
+