Changeset 482 in ProjectBuilder for devel/pb-modules

Timestamp:

Jun 6, 2008, 12:23:46 AM (17 years ago)

Author:

Bruno Cornec

Message:

Improves again pb_system for feedback of printed msgs

File:

• devel/pb-modules/lib/ProjectBuilder/Base.pm (modified) (1 diff)

devel/pb-modules/lib/ProjectBuilder/Base.pm

@@ -142 +142 @@
 pb_log(0,"$cmt... ");
 pb_log(1,"Executing $cmd\n");
-$redir = "2>&1 > $ENV{'PBTMP'}/system.log" if ((! defined $verbose) || ($verbose ne "noredir"));
+unlink("$ENV{'PBTMP'}/system.log") if (-f "$ENV{'PBTMP'}/system.log");
+$redir = "2>> $ENV{'PBTMP'}/system.log 1>> $ENV{'PBTMP'}/system.log" if ((! defined $verbose) || ($verbose ne "noredir"));
 system("$cmd $redir");
 my $res = $?;