diff options
-rwxr-xr-x | cat/run-cat-locally | 2 | ||||
-rwxr-xr-x | df/run-df-locally | 2 | ||||
-rwxr-xr-x | edit/run-edit-locally | 2 | ||||
-rwxr-xr-x | inspector/run-inspector-locally | 2 | ||||
-rwxr-xr-x | rescue/run-rescue-locally | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/cat/run-cat-locally b/cat/run-cat-locally index bba2c088..be60d076 100755 --- a/cat/run-cat-locally +++ b/cat/run-cat-locally @@ -34,7 +34,7 @@ my $path = $0; # Follow symlinks until we get to the real file while(-l $path) { - my $link = readlink($path); + my $link = readlink($path) or die "readlink: $path: $!"; if(File::Spec->file_name_is_absolute($link)) { $path = $link; } else { diff --git a/df/run-df-locally b/df/run-df-locally index 35574438..f8a50aa5 100755 --- a/df/run-df-locally +++ b/df/run-df-locally @@ -34,7 +34,7 @@ my $path = $0; # Follow symlinks until we get to the real file while(-l $path) { - my $link = readlink($path); + my $link = readlink($path) or die "readlink: $path: $!"; if(File::Spec->file_name_is_absolute($link)) { $path = $link; } else { diff --git a/edit/run-edit-locally b/edit/run-edit-locally index 90968a27..3a6a9abf 100755 --- a/edit/run-edit-locally +++ b/edit/run-edit-locally @@ -34,7 +34,7 @@ my $path = $0; # Follow symlinks until we get to the real file while(-l $path) { - my $link = readlink($path); + my $link = readlink($path) or die "readlink: $path: $!"; if(File::Spec->file_name_is_absolute($link)) { $path = $link; } else { diff --git a/inspector/run-inspector-locally b/inspector/run-inspector-locally index 156f3ae1..61062824 100755 --- a/inspector/run-inspector-locally +++ b/inspector/run-inspector-locally @@ -34,7 +34,7 @@ my $path = $0; # Follow symlinks until we get to the real file while(-l $path) { - my $link = readlink($path); + my $link = readlink($path) or die "readlink: $path: $!"; if(File::Spec->file_name_is_absolute($link)) { $path = $link; } else { diff --git a/rescue/run-rescue-locally b/rescue/run-rescue-locally index d814ed5f..33191e7a 100755 --- a/rescue/run-rescue-locally +++ b/rescue/run-rescue-locally @@ -35,7 +35,7 @@ my $path = $0; # Follow symlinks until we get to the real file while(-l $path) { - my $link = readlink($path); + my $link = readlink($path) or die "readlink: $path: $!"; if(File::Spec->file_name_is_absolute($link)) { $path = $link; } else { |