Porting/todo.pod: Update file name in ‘truncate() prototype’

[perl5.git] / make_patchnum.pl

diff --git a/make_patchnum.pl b/make_patchnum.pl
index 3f857b5..fc28d58 100644 (file)
--- a/make_patchnum.pl
+++ b/make_patchnum.pl
@@ -100,7 +100,7 @@ sub backtick {
     } else {
         my $result= `$subcd $command`;
         $result="" if ! defined $result;
-        warn "$subcd $command: \$?=$?\n" if $?;
+        #warn "$subcd $command: \$?=$?\n" if $?;
         print "#> $subcd $command ->\n $result\n" if !$? and $opt_v;
         chomp $result;
         return $result;