Change 16380 by jhi@alpha on 2002/05/03 15:47:38
Subject: [PATCH] enc2xs template -- searches script more sensibly
From: Dan Kogai <[EMAIL PROTECTED]>
Date: Sat, 4 May 2002 01:46:35 +0900
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/ext/Encode/Encode/Makefile_PL.e2x#7 edit
Differences ...
==== //depot/perl/ext/Encode/Encode/Makefile_PL.e2x#7 (text) ====
Index: perl/ext/Encode/Encode/Makefile_PL.e2x
--- perl/ext/Encode/Encode/Makefile_PL.e2x.~1~ Fri May 3 10:00:05 2002
+++ perl/ext/Encode/Encode/Makefile_PL.e2x Fri May 3 10:00:05 2002
@@ -6,6 +6,7 @@
use 5.7.2;
use strict;
use ExtUtils::MakeMaker;
+use Config;
# Please edit the following to the taste!
my $name = '$_Name_';
@@ -17,7 +18,8 @@
require File::Spec;
my ($enc2xs, $encode_h) = ();
PATHLOOP:
-for my $d (split /:/, $ENV{PATH}){
+for my $d (@Config{qw/bin sitebin vendorbin/},
+ (split /:/, $ENV{PATH})){
for my $f (qw/enc2xs enc2xs5.7.3/){
my $path = File::Spec->catfile($d, $f);
-x $path and $enc2xs = $path and last PATHLOOP;
End of Patch.
