X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=inspector%2Frun-inspector-locally;h=5a9c9987775758fa04edb7d4b23d6c61673cdd22;hp=156f3ae1edb96c065d10d7bc4a8f8ad83e7e1257;hb=61cfe13ec49f1d1e9d6124f0ee98520aab720087;hpb=1154aff2c68b7ac156713c7fd66b5aa8907a3cb2

diff --git a/inspector/run-inspector-locally b/inspector/run-inspector-locally
index 156f3ae..5a9c998 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 {
@@ -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.'/inspector/virt-inspector.pl', @ARGV);
+exec('perl', $path.'/inspector/virt-inspector', @ARGV);