Author: ceki Date: Thu Feb 12 11:20:33 2009 New Revision: 2154 Modified: logback/trunk/version.pl Log: original file is now removed Modified: logback/trunk/version.pl ============================================================================== --- logback/trunk/version.pl (original) +++ logback/trunk/version.pl Thu Feb 12 11:20:33 2009 @@ -14,11 +14,11 @@ if(-s $filename) { print "Processing [" . $filename . "]\r\n"; - my $backup = "$filename.original"; + my $origFile = "$filename.original"; - rename($filename, $backup); + rename($filename, $origFile); open(OUT, ">$filename"); - open(IN, "$backup"); + open(IN, "$origFile"); my $hitCount=0; while(<IN>) { @@ -30,6 +30,7 @@ } close(IN); close(OUT); + remove($origFile); } else { print "File [" . $filename . "] does not exist\r\n" }