Changeset 1388 for trunk/locker/sbin

Timestamp:

Dec 22, 2009, 8:41:53 PM (15 years ago)

Author:

quentin

Message:

Don't pass strings with newlines around

File:

• trunk/locker/sbin/parallel-find.pl (modified) (3 diffs)

trunk/locker/sbin/parallel-find.pl

@@ -51 +51 @@
     my $dirname = shift;
     open my $h, "$dirname/.scripts-version";
-    return (<$h>)[-1];
+    chomp (my $v = (<$h>)[-1]);
+    return $v;
 }
 
@@ -62 +63 @@
         print "Failed to read value for $dirname\n"
     }
-    return "$val\n";
+    return $val;
 }
 
@@ -83 +84 @@
         }
         $v = $new_style ? version($f) : old_version($f);
-        print $out "$f:$v";
+        print $out "$f:$v\n";
     }
     return 0;