Changeset 1388


Ignore:
Timestamp:
Dec 22, 2009, 8:41:53 PM (13 years ago)
Author:
quentin
Message:
Don't pass strings with newlines around
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/locker/sbin/parallel-find.pl

    r1387 r1388  
    5151    my $dirname = shift;
    5252    open my $h, "$dirname/.scripts-version";
    53     return (<$h>)[-1];
     53    chomp (my $v = (<$h>)[-1]);
     54    return $v;
    5455}
    5556
     
    6263        print "Failed to read value for $dirname\n"
    6364    }
    64     return "$val\n";
     65    return $val;
    6566}
    6667
     
    8384        }
    8485        $v = $new_style ? version($f) : old_version($f);
    85         print $out "$f:$v";
     86        print $out "$f:$v\n";
    8687    }
    8788    return 0;
Note: See TracChangeset for help on using the changeset viewer.