Changeset 1424 for trunk/gsdl/perllib/plugins/TEXTPlug.pm

Timestamp:

2000-08-18T17:37:15+12:00 (24 years ago)

Author:

sjboddie

Message:

Added a -out option to most of the perl building scripts to allow output
debug information to be directed to a file.

File:

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

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -35 +35 @@
 }
 
-use strict;
-
 sub new {
     my ($class) = @_;
@@ -57 +55 @@
     my $self = shift (@_);
     my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj) = @_;
-    
-    print STDERR "TEXTPlug: processing $file\n" 
+    my $outhandle = $self->{'outhandle'};
+
+    print $outhandle "TEXTPlug: processing $file\n" 
     if $self->{'verbosity'} > 1;