This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix t/op/magic.t failures under Cygwin
[perl5.git]
/
t
/
op
/
magic.t
diff --git
a/t/op/magic.t
b/t/op/magic.t
index
0ce58d3
..
799c717
100755
(executable)
--- a/
t/op/magic.t
+++ b/
t/op/magic.t
@@
-193,6
+193,9
@@
ok $@ =~ /^Modification of a read-only value attempted/;
# Cygwin turns the symlink into the real file
chomp($wd = `pwd`);
$wd =~ s#/t$##;
# Cygwin turns the symlink into the real file
chomp($wd = `pwd`);
$wd =~ s#/t$##;
+ if ($Is_Cygwin) {
+ $wd = Cygwin::win_to_posix_path(Cygwin::posix_to_win_path($wd, 1));
+ }
}
elsif($Is_os2) {
$wd = Cwd::sys_cwd();
}
elsif($Is_os2) {
$wd = Cwd::sys_cwd();
@@
-205,6
+208,7
@@
ok $@ =~ /^Modification of a read-only value attempted/;
}
my $perl = ($Is_MacOS || $Is_VMS) ? $^X : "$wd/perl";
my $headmaybe = '';
}
my $perl = ($Is_MacOS || $Is_VMS) ? $^X : "$wd/perl";
my $headmaybe = '';
+ my $middlemaybe = '';
my $tailmaybe = '';
$script = "$wd/show-shebang";
if ($Is_MSWin32) {
my $tailmaybe = '';
$script = "$wd/show-shebang";
if ($Is_MSWin32) {
@@
-234,6
+238,12
@@
EOT
elsif ($Is_VMS) {
$script = "[]show-shebang";
}
elsif ($Is_VMS) {
$script = "[]show-shebang";
}
+ elsif ($Is_Cygwin) {
+ $middlemaybe = <<'EOX'
+$^X = Cygwin::win_to_posix_path(Cygwin::posix_to_win_path($^X, 1));
+$0 = Cygwin::win_to_posix_path(Cygwin::posix_to_win_path($0, 1));
+EOX
+ }
if ($^O eq 'os390' or $^O eq 'posix-bc' or $^O eq 'vmesa') { # no shebang
$headmaybe = <<EOH ;
eval 'exec ./perl -S \$0 \${1+"\$\@"}'
if ($^O eq 'os390' or $^O eq 'posix-bc' or $^O eq 'vmesa') { # no shebang
$headmaybe = <<EOH ;
eval 'exec ./perl -S \$0 \${1+"\$\@"}'
@@
-242,7
+252,7
@@
EOH
}
$s1 = "\$^X is $perl, \$0 is $script\n";
ok open(SCRIPT, ">$script"), $!;
}
$s1 = "\$^X is $perl, \$0 is $script\n";
ok open(SCRIPT, ">$script"), $!;
- ok print(SCRIPT $headmaybe . <<EOB . <<'EOF' . $tailmaybe), $!;
+ ok print(SCRIPT $headmaybe . <<EOB .
$middlemaybe .
<<'EOF' . $tailmaybe), $!;
#!$wd/perl
EOB
print "\$^X is $^X, \$0 is $0\n";
#!$wd/perl
EOB
print "\$^X is $^X, \$0 is $0\n";