git.annexia.org
/
libguestfs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
guestfish -i and virt-inspector work on filenames containing spaces (RHBZ#507810).
[libguestfs.git]
/
inspector
/
run-inspector-locally
diff --git
a/inspector/run-inspector-locally
b/inspector/run-inspector-locally
index
156f3ae
..
5a9c998
100755
(executable)
--- 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) {
# 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 {
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';
$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);