From 75b6338da3e6e33c02b931623f074ab5a76a1788 Mon Sep 17 00:00:00 2001
From: Richard Jones <rjones@trick.home.annexia.org>
Date: Wed, 23 Sep 2009 12:09:26 +0100
Subject: Check return value from readlink.

---
 df/run-df-locally | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'df')

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 {
-- 
cgit