Changeset 16193

Timestamp:

2008-06-26T09:43:34+12:00 (15 years ago)

Author:

kjdon

Message:

forgot to define outhandle last commit

File:

• 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";