Hello,
I have used prep.pl occasionally over the years and today I needed to use
non-verbose mode and found that it was not working properly for two reasons
and suggest the following change:
On or about line 161 change:
if( $VerbodeMode ){
print "File: $file\n";
$FileNamePrinted;
}
to:
if( $VerboseMode ){
print "File: $file\n";
}
$FileNamePrinted=1;
The two problems are $VerbodeMode should be $VerboseMode and
$FileNamePrinted should be set no matter what.
I am not a perl programmer to say the least so I don't even know if the
$FileNamePrinted is the same as $FileNamePrinted=1 ... the important thing
is it be outside the block.
Thank you for making the script available
(http://www.verhas.com/peter/progs/perl/prep/index.html) and yes, I have
only used it when desperate.
Regards,
Peter DeGregorio
PGM Systems, Inc.