diff options
| author | Jacob Pipkin <j@dawnrazor.net> | 2012-11-05 03:26:31 -0600 |
|---|---|---|
| committer | Jacob Pipkin <j@dawnrazor.net> | 2012-11-05 03:26:31 -0600 |
| commit | 7830eacceca75d099dacb1ea1362465042f9cc2f (patch) | |
| tree | dee834a111f27f8568be72a6c69b5f57a03e9a31 /SBO-Lib/lib | |
| parent | 726522b533984f1b9652b580153a65d4c12b3ae9 (diff) | |
| download | sbotools2-7830eacceca75d099dacb1ea1362465042f9cc2f.tar.xz | |
git rid of prototype for get_symlink_from_filename. all tests pass.
Diffstat (limited to 'SBO-Lib/lib')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index 09a1822..95da0d7 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -420,7 +420,7 @@ sub get_distfile { } # for a given distfile, figure out what the full path to its symlink will be -sub get_symlink_from_filename ($$) { +sub get_symlink_from_filename { exists $_[1] or script_error 'get_symlink_from_filename requires two arguments'; -f $_[0] or script_error @@ -502,7 +502,7 @@ sub create_symlinks ($%) { my @symlinks; for my $link (keys %downloads) { my $filename = get_filename_from_link $link; - my $symlink = get_symlink_from_filename $filename, $location; + my $symlink = get_symlink_from_filename ($filename, $location); push @symlinks, $symlink; symlink $filename, $symlink; } |