Changeset 1851 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Base.pm

Timestamp:

Jan 28, 2014, 11:13:42 AM (10 years ago)

Author:

Bruno Cornec

Message:

• Fix #128 by removing the initialization to STDOUT of the FD in pb_display_file and also improving pb_get_content to avoid to handle the last line

File:

• devel/pb-modules/lib/ProjectBuilder/Base.pm (modified) (4 diffs)

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

@@ -163 +163 @@
     pb_log(0,"NOT OK but non blocking\n") if ($res != 0);
     pb_log(0,"OK\n") if ($res == 0);
-    pb_display_file("$ENV{'PBTMP'}/system.$$.log",undef,$verbose) if ((-f "$ENV{'PBTMP'}/system.$$.log") and (defined $verbose) and ($verbose =~ /verbose/));
+    pb_display_file("$ENV{'PBTMP'}/system.$$.log",undef,$verbose) if ((-f "$ENV{'PBTMP'}/system.$$.log") and ($verbose =~ /verbose/));
     return($res) 
 }
@@ -301 +301 @@
 
 my $file=shift;
-my $desc=shift || \*STDOUT;
+my $desc=shift;
 my $prefix=shift;
 
@@ -309 +309 @@
 if ((defined $prefix) and ($prefix =~ "_")) {
     $prefix =~ s/verbose_//;
-    $cnt =~ s/\n/\n$prefix/g;
+    $cnt =~ s/\n[^\z]/\n$prefix/g;
 } else {
     $prefix = "";
 }
-print "$prefix$cnt\n";
-print $desc "$prefix$cnt\n" if (defined $desc);
+print "$prefix$cnt";
+print $desc "$prefix$cnt" if (defined $desc);
 }
 
@@ -322 +322 @@
 
 =cut
-
 sub pb_get_content {
 
 my $file=shift;
 
-my $bkp = $/;
-undef $/;
 open(R,$file) || die "Unable to open $file: $!";
+local $/;
 my $content=<R>;
 close(R);
-chomp($content);
-$/ = $bkp;
 return($content);
 }