Ignore:
Timestamp:
2009-02-11T17:52:28+13:00 (15 years ago)
Author:
davidb
Message:

switched print statement to using $outhandle

File:
1 edited

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);
Note: See TracChangeset for help on using the changeset viewer.