Changeset 16193

Timestamp:

2008-06-26 09:43:34 (5 months ago)

Author:

kjdon

Message:

forgot to define outhandle last commit

Files:

• gsdl/trunk/perllib/plugins/OpenDocumentPlugin.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/OpenDocumentPlugin.pm

@@ -167 +167 @@
-    return $block_status if ((!defined $block_status) || ($block_status==0));
-
+    my $outhandle = $self->{'outhandle'};
-    # Report that we're processing the file
-    print STDERR "<Processing n='$file' p='OpenDocumentPlugin'>\n" if ($gli);
@@ -216 +217 @@
-        my ($msg) = $@ =~ /Carp::croak\(\'(.*?)\'\)/;
-        if (defined $msg) {     
-            my $outhandle = $self->{'outhandle'};
-            my $plugin_name = ref ($self);
-            print $outhandle "$plugin_name failed to process $file ($msg)\n";