|
Lines 302-321
sub query_file(@)
Link Here
|
| 302 |
my $found = 0; |
302 |
my $found = 0; |
| 303 |
my $origa = $a; |
303 |
my $origa = $a; |
| 304 |
|
304 |
|
| 305 |
# Trim trailing slashes from directories |
305 |
# Try to get the absolute path before searching |
| 306 |
$a =~ s#/*$##; |
306 |
$a = abs_path($a) || $a; |
| 307 |
|
307 |
|
| 308 |
# If it's a relative pathname, then figure out the full pathname |
|
|
| 309 |
if ($a !~ m#^/# || $a =~ m#/\.\./#) { |
| 310 |
# Make the pathname absolute |
| 311 |
if ($a =~ s#/([^/]+)$##) { |
| 312 |
my $name = $1; |
| 313 |
$a = abs_path($a) . '/' . $name; |
| 314 |
} |
| 315 |
else { |
| 316 |
$a = abs_path('.') . '/' . $a; |
| 317 |
} |
| 318 |
} |
| 319 |
# TODO: stat the file here so that we can determine later |
308 |
# TODO: stat the file here so that we can determine later |
| 320 |
# what package the file currently belongs to |
309 |
# what package the file currently belongs to |
| 321 |
for my $p (@dpkgs) { |
310 |
for my $p (@dpkgs) { |
