summaryrefslogtreecommitdiff
path: root/bin/checklinks
diff options
context:
space:
mode:
Diffstat (limited to 'bin/checklinks')
-rwxr-xr-xbin/checklinks6
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;