[perl #36728] [PATCH] pmc2c.pl currently does not allow absolute paths

[via RT]

# New Ticket Created by  Roland Illig 
# Please include the string:  [perl #36728]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36728 >

... when searching files. I needed this patch to build parrot-0.2.2 with 
pkgsrc (http://www.pkgsrc.org/).

Roland

$NetBSD$

--- build_tools/pmc2c.pl.orig   Mon Jun  6 08:22:48 2005
+++ build_tools/pmc2c.pl        Mon Aug  1 01:06:27 2005
@@ -269,6 +269,10 @@ main();
 sub find_file {
     my ($include, $file, $die_unless_found) = @_;
 
+    if (File::Spec->file_name_is_absolute($file) && -e $file) {
+        return $file;
+    }
+
     foreach my $dir ( @$include ) {
         my $path = File::Spec->catfile( $dir, $file );
         return $path if -e $path;