X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=df%2Frun-df-locally;h=94697b0ce8b6dd27703dc83b748eb90e82df7154;hb=ee21bc1f8071bb35409e9f15fb8309348c9a5912;hp=3557443896c0a8c0377d26f22f7c3a6270a863aa;hpb=67a3d3e3915a18a58702b7e68f514d9dc9a82a2e;p=libguestfs.git

diff --git a/df/run-df-locally b/df/run-df-locally
index 3557443..94697b0 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 {
@@ -49,4 +49,4 @@ $ENV{LD_LIBRARY_PATH} = $path.'/src/.libs';
 $ENV{LIBGUESTFS_PATH} = $path.'/appliance';
 $ENV{PERL5LIB}        = $path.'/perl/blib/lib:'.$path.'/perl/blib/arch';
 
-exec('perl', $path.'/df/virt-df.pl', @ARGV);
+exec('perl', $path.'/df/virt-df', @ARGV);