Minor update to find2perl, for portability
authorPaul Moore <Paul.Moore@uk.origin-it.com>
Wed, 25 Oct 2000 12:05:47 +0000 (13:05 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 25 Oct 2000 13:44:28 +0000 (13:44 +0000)
Message-ID: <714DFA46B9BBD0119CD000805FC1F53B012A8355@UKRUX002.rundc.uk.origin-it.com>

p4raw-id: //depot/perl@7432

x2p/find2perl.PL

index 25d0135..4d74d06 100644 (file)
@@ -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) { $_ = &quote($_) }
 my $roots = join(', ', @roots);
 
@@ -674,6 +675,7 @@ sub n {
 
 sub quote {
     my $string = shift;
+    $string =~ s/\\/\\\\/g;
     $string =~ s/'/\\'/g;
     "'$string'";
 }