Change 23634 by [EMAIL PROTECTED] on 2004/12/09 22:51:03
Evade using @ in the 1 liner with some perl 1 syntax.
Affected files ...
... //depot/perl/lib/Config.t#27 edit
Differences ...
==== //depot/perl/lib/Config.t#27 (text) ====
Index: perl/lib/Config.t
--- perl/lib/Config.t#26~23610~ Mon Dec 6 02:35:00 2004
+++ perl/lib/Config.t Thu Dec 9 14:51:03 2004
@@ -236,8 +236,12 @@
# Check that config entries appear correctly in @INC
# TestInit.pm has probably already messed with our @INC
+# This little bit of evil is to avoid a @ in the program, in case it confuses
+# shell 1 liners. Perl 1 rules.
my ($path, $ver, @orig_inc)
- = split /\n/, runperl (nolib=>1, prog=>'print qq{$_\n} for $^X, $], @INC');
+ = split /\n/,
+ runperl (nolib=>1,
+ prog=>'print qq{$^X\n$]\n}; print qq{$_\n} while $_ = shift INC');
die "This perl is $] at $^X; other perl is $ver (at $path) "
. '- failed to find this perl' unless $] eq $ver;
End of Patch.
