diff options
-rwxr-xr-x | sbolint | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -404,7 +404,10 @@ if($stdin) { if($recursive_git) { if(-t STDOUT) { chomp (my $outfile = "$SELF.log." . `date +%Y%m%d`); - warn "$SELF: stdout is a terminal, redirecting to $outfile"; + warn "$SELF: stdout is a terminal, redirecting to $outfile\n"; + if(rename $outfile, $outfile . ".old") { + warn "$SELF: renamed old $outfile to $outfile.old\n"; + } open my $f, ">$outfile" or die $!; *STDOUT = $f; } |