diff options
| author | Paul Moore <Paul.Moore@uk.origin-it.com> | 2000-10-25 13:05:47 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-25 13:44:28 +0000 |
| commit | 2305df61de56aa7ac63df86148cf0e4f5dc20cd3 (patch) | |
| tree | 736f8da709e9ab69ecf91ffd4bd5c41785ea2825 /x2p/find2perl.PL | |
| parent | 9fec149bb652b6e9b0ac53649e1e535bc4e27d66 (diff) | |
| download | perl-2305df61de56aa7ac63df86148cf0e4f5dc20cd3.tar.gz | |
Minor update to find2perl, for portability
Message-ID: <714DFA46B9BBD0119CD000805FC1F53B012A8355@UKRUX002.rundc.uk.origin-it.com>
p4raw-id: //depot/perl@7432
Diffstat (limited to 'x2p/find2perl.PL')
| -rw-r--r-- | x2p/find2perl.PL | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL index 25d0135528..4d74d06e1b 100644 --- a/x2p/find2perl.PL +++ b/x2p/find2perl.PL @@ -37,6 +37,7 @@ my \$perlpath = "$Config{perlpath}"; print OUT <<'!NO!SUBS!'; use strict; use vars qw/$statdone/; +use File::Spec::Functions 'curdir'; my $startperl = "#! $perlpath -w"; # @@ -57,7 +58,7 @@ my @roots = (); while ($ARGV[0] =~ /^[^-!(]/) { push(@roots, shift); } -@roots = ('.') unless @roots; +@roots = (curdir()) unless @roots; for (@roots) { $_ = "e($_) } my $roots = join(', ', @roots); @@ -674,6 +675,7 @@ sub n { sub quote { my $string = shift; + $string =~ s/\\/\\\\/g; $string =~ s/'/\\'/g; "'$string'"; } |