search for: file_name_is_absolute

...ons(+) > > diff --git a/podwrapper.pl.in b/podwrapper.pl.in > index f12a173f..1e4aa149 100755 > --- a/podwrapper.pl.in > +++ b/podwrapper.pl.in > @@ -689,6 +689,8 @@ sub find_file > my $use_path = shift; > local $_; > > + return $input if File::Spec->file_name_is_absolute($input) and -f $input; Do you really need to use file_name_is_absolute? -f seems to work fine also with absolute paths. In case the path is relative, -f will be fine too, as... > my @search_path = ("."); > push (@search_path, @paths) if $use_path; > foreach (@sea...

...; index f12a173f..1e4aa149 100755 > > > --- a/podwrapper.pl.in > > > +++ b/podwrapper.pl.in > > > @@ -689,6 +689,8 @@ sub find_file > > > my $use_path = shift; > > > local $_; > > > > > > + return $input if File::Spec->file_name_is_absolute($input) and -f $input; > > > > Do you really need to use file_name_is_absolute? -f seems to work fine > > also with absolute paths. In case the path is relative, -f will be fine > > too, as... > > It's all about skipping the code below. The '.' will turn...

...r.pl.in b/podwrapper.pl.in > > index f12a173f..1e4aa149 100755 > > --- a/podwrapper.pl.in > > +++ b/podwrapper.pl.in > > @@ -689,6 +689,8 @@ sub find_file > > my $use_path = shift; > > local $_; > > > > + return $input if File::Spec->file_name_is_absolute($input) and -f $input; > > Do you really need to use file_name_is_absolute? -f seems to work fine > also with absolute paths. In case the path is relative, -f will be fine > too, as... It's all about skipping the code below. The '.' will turn your nice absolute path '/...

Building virt-v2v out-of-tree does not work and requires several small fixes here and there. Tomáš Golembiovský (3): build: perform gnulib check from source directory build: run ocaml-link.sh from build directory docs: don't perform lookup on absolute paths cfg.mk | 1 + podwrapper.pl.in | 2 ++ v2v/Makefile.am | 16 ++++++++-------- 3 files changed, 11 insertions(+), 8

...findnodes('/virt-v2v/app/path/text()')) { $path = $path->getData(); - # Get the absolute path if iso-root was defined my $abs; - if (defined($root)) { - $abs = File::Spec->catfile($root, $path); - } else { + if (File::Spec->file_name_is_absolute($path) || !defined($root)) { $abs = $path; } + # Make relative paths relative to iso-root if it was defined + else { + $abs = File::Spec->catfile($root, $path); + } + if (-r $abs) { $path_args{"$path=$abs"} =...

...podwrapper.pl.in | 2 ++ 1 file changed, 2 insertions(+) diff --git a/podwrapper.pl.in b/podwrapper.pl.in index f12a173f..1e4aa149 100755 --- a/podwrapper.pl.in +++ b/podwrapper.pl.in @@ -689,6 +689,8 @@ sub find_file my $use_path = shift; local $_; + return $input if File::Spec->file_name_is_absolute($input) and -f $input; + my @search_path = ("."); push (@search_path, @paths) if $use_path; foreach (@search_path) { -- 2.25.0