Changeset 18509

Show
Ignore:
Timestamp:
11.02.2009 17:52:28 (11 years ago)
Author:
davidb
Message:

switched print statement to using $outhandle

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm

    r18508 r18509  
    114114            = File::Basename::fileparse($doc_filename, "\\.[^\\.]+\$"); 
    115115 
    116         print STDERR "Removing $doc_dirname\n" if ($verbosity>2); 
     116        print $outhandle "Removing $doc_dirname\n" if ($verbosity>2); 
    117117 
    118118        &util::rm_r($doc_dirname);