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
SYN SYN
[perl5.git]
/
t
/
op
/
stat.t
diff --git
a/t/op/stat.t
b/t/op/stat.t
index
353b3b3
..
1317ba8
100755
(executable)
--- a/
t/op/stat.t
+++ b/
t/op/stat.t
@@
-4,7
+4,7
@@
BEGIN {
chdir 't' if -d 't';
BEGIN {
chdir 't' if -d 't';
-
unshift @INC,
'../lib';
+
@INC =
'../lib';
}
use Config;
}
use Config;
@@
-32,7
+32,7
@@
if (open(FOO, ">Op.stat.tmp")) {
else {
print "# res=$res, nlink=$nlink.\nnot ok 1\n";
}
else {
print "# res=$res, nlink=$nlink.\nnot ok 1\n";
}
- if ($Is_MSWin32 or $Is_Cygwin || ($mtime && $mtime == $ctime)) {
+ if ($Is_MSWin32 or $Is_Cygwin
or $Is_Dos
|| ($mtime && $mtime == $ctime)) {
print "ok 2\n";
}
else {
print "ok 2\n";
}
else {