Check return value from readlink.

diff --git a/cat/run-cat-locally b/cat/run-cat-locally
index bba2c08..be60d07 100755 (executable)
--- 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) {
 
 # 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 {
     if(File::Spec->file_name_is_absolute($link)) {
         $path = $link;
     } else {

diff --git a/df/run-df-locally b/df/run-df-locally
index 3557443..f8a50aa 100755 (executable)
--- 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) {
 
 # 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 {
     if(File::Spec->file_name_is_absolute($link)) {
         $path = $link;
     } else {

diff --git a/edit/run-edit-locally b/edit/run-edit-locally
index 90968a2..3a6a9ab 100755 (executable)
--- 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) {
 
 # 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 {
     if(File::Spec->file_name_is_absolute($link)) {
         $path = $link;
     } else {

diff --git a/inspector/run-inspector-locally b/inspector/run-inspector-locally
index 156f3ae..6106282 100755 (executable)
--- 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) {
 
 # 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 {
     if(File::Spec->file_name_is_absolute($link)) {
         $path = $link;
     } else {

diff --git a/rescue/run-rescue-locally b/rescue/run-rescue-locally
index d814ed5..33191e7 100755 (executable)
--- 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) {
 
 # 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 {
     if(File::Spec->file_name_is_absolute($link)) {
         $path = $link;
     } else {