Change 11583 by gsar@moonru on 2001/08/05 16:28:22
fix POSIX.t#13 for windos
Affected files ...
... //depot/perl/ext/POSIX/POSIX.t#10 edit
Differences ...
==== //depot/perl/ext/POSIX/POSIX.t#10 (xtext) ====
Index: perl/ext/POSIX/POSIX.t
--- perl/ext/POSIX/POSIX.t.~1~ Sun Aug 5 10:45:05 2001
+++ perl/ext/POSIX/POSIX.t Sun Aug 5 10:45:05 2001
@@ -96,7 +96,7 @@
if ($Is_MacOS) {
$pat = qr/:t:$/;
} else {
- $pat = qr#/t$#;
+ $pat = qr#[\\/]t$#i;
}
print getcwd() =~ $pat ? "ok 13\n" : "not ok 13\n";
End of Patch.
