X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=rescue%2Frun-rescue-locally;h=95f3cc4a7b66fe1469cad0be7ef8b7d53835755c;hb=3451d73a693091ae1a33e7dbefbe56c1b93f426a;hp=d814ed5feedcb10da752d043c2564ee6c436f15d;hpb=1b21ed4f5d9307e87fad094ec177c90d5adb91ce;p=libguestfs.git

diff --git a/rescue/run-rescue-locally b/rescue/run-rescue-locally
index d814ed5..95f3cc4 100755
--- a/rescue/run-rescue-locally
+++ b/rescue/run-rescue-locally
@@ -1,5 +1,4 @@
 #!/usr/bin/perl
-# virt-rescue
 # Copyright (C) 2009 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify
@@ -16,9 +15,9 @@
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-# This script sets up the environment so you can run virt-rescue in
+# This script sets up the environment so you can run virt-* tools in
 # place without needing to do 'make install' first. You can also run
-# virt-rescue by creating a symlink to this script and putting it in
+# the tools by creating a symlink to this script and putting it in
 # your path.
 #
 # Use it like this:
@@ -35,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 {
@@ -48,6 +47,6 @@ $path = abs_path(dirname($path).'/..');
 
 $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.'/rescue/virt-rescue.pl', @ARGV);
+#print (join " ", ("$path/rescue/virt-rescue", @ARGV), "\n");
+exec("$path/rescue/virt-rescue", @ARGV);