diff options
| -rwxr-xr-x | bin/checklinks | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bin/checklinks b/bin/checklinks index 3798a23..1ee4839 100755 --- a/bin/checklinks +++ b/bin/checklinks @@ -28,8 +28,8 @@ GetOptions( 'p|parameter=s' => \%substitute, ); -open(LINKS, '<', $linkfile) or die("Can't open $linkfile: $!"); -while(<LINKS>) { +open(my $links, '<', $linkfile) or die("Can't open $linkfile: $!"); +while(<$links>) { chomp; foreach my $key (keys(%substitute)) { s/\$$key/$substitute{$key}/g; @@ -44,7 +44,7 @@ while(<LINKS>) { check_hardlink($src, $dst); } } -close(LINKS); +close($links); sub remove_link { my $link = shift; |