Fix: if from STDIN, print always to STDOUT

hknutzen · Jan 22, 2017 · 4882560 · 4882560
1 parent 55ee2ac
commit 4882560
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 16 deletions.
diff --git a/bin/add-to-netspoc b/bin/add-to-netspoc
@@ -226,13 +226,7 @@ sub process {
             last;
         }
     }
-
-    if ($changed) {
-        return ($changed, $copy);
-    }
-    else {
-        return ();
-    }
+    return ($changed, $copy);
 }
 
 sub process_file {
@@ -245,7 +239,8 @@ sub process_file {
     # Undef input record separator to read all output at once.
     { local $/ = undef; $input = <$in>; }
     close $in;
-    if (my ($count, $copy) = process($input)) {
+    my ($count, $copy) = process($input);
+    if ($count or $path eq '-') {
         info "$count changes in $path" if not $quiet;
         if ($path ne '-') {
             unlink($path) or fatal_err "Can't remove $path: $!\n";

diff --git a/bin/remove-from-netspoc b/bin/remove-from-netspoc
@@ -256,13 +256,7 @@ sub process {
             last;
         }
     }
-
-    if ($changed) {
-        return ($changed, $copy);
-    }
-    else {
-        return ();
-    }
+    return ($changed, $copy);
 }
 
 sub process_file {
@@ -275,7 +269,8 @@ sub process_file {
     # Undef input record separator to read all output at once.
     { local $/ = undef; $input = <$in>; }
     close $in;
-    if (my ($count, $copy) = process($input)) {
+    my ($count, $copy) = process($input);
+    if ($count or $path eq '-') {
         info "$count changes in $path" if not $quiet;
         if ($path ne '-') {
             unlink($path) or fatal_err "Can't remove $path: $!\n";