[patch] patch

bug93843_abspath.diff (text/plain), 722 bytes, created by Peter Weilbacher on 2013-01-23 11:49:55 UTC

diff --git a/epm b/epm
index d325862..0e3dabd 100755
--- a/epm
+++ b/epm
@@ -302,20 +302,9 @@ sub query_file(@)
 	my $found = 0;
 	my $origa = $a;
 
-	# Trim trailing slashes from directories
-	$a =~ s#/*$##;
-
-	# If it's a relative pathname, then figure out the full pathname
-	if ($a !~ m#^/# || $a =~ m#/\.\./#) {
-	    # Make the pathname absolute
-	    if ($a =~ s#/([^/]+)$##) {
-		my $name = $1;
-		$a = abs_path($a) . '/' . $name;
-	    }
-	    else {
-		$a = abs_path('.') . '/' . $a;
-	    }
-	}
+	# Try to get the absolute path before searching
+	$a = abs_path($a) || $a;
+
 	# TODO: stat the file here so that we can determine later
 	#       what package the file currently belongs to
 	for my $p (@dpkgs) {