X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=df%2Frun-df-locally;h=2456ab52f08b9e99c69c76e72418e56c0fb81008;hb=0108d7861d4cc9a1f0d87d89080d1be7750e54b5;hp=f8a50aa5b7500b13766c2c7cb0450acf165108d1;hpb=75b6338da3e6e33c02b931623f074ab5a76a1788;p=libguestfs.git

diff --git a/df/run-df-locally b/df/run-df-locally
index f8a50aa..2456ab5 100755
--- a/df/run-df-locally
+++ b/df/run-df-locally
@@ -1,5 +1,4 @@
 #!/usr/bin/perl
-# virt-df
 # Copyright (C) 2009 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify
@@ -16,9 +15,10 @@
 # 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-df in place
-# without needing to do 'make install' first. You can also run virt-df
-# by creating a symlink to this script and putting it in your path.
+# 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
+# the tools by creating a symlink to this script and putting it in
+# your path.
 #
 # Use it like this:
 #   ./run-df-locally [usual virt-df args ...]
@@ -47,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.'/df/virt-df.pl', @ARGV);
+#print (join " ", ("$path/df/virt-df", @ARGV), "\n");
+exec("$path/df/virt-df", @ARGV);