FAQ
. . . for the case insensitive and fork()less among us. glob-basic.t was
picking up the new file TestInit.pm because it matches the pattern TES* on
case insensitive file systems; I've just excluded all .pm files, of which
this was the first in the t directory. runenv.t made no provision for the
absence of fork() so I've skipped it when the function is unavailable; could
it possibly do its thing with pipes or backquotes for its subprocessing?

$ gdiff -u t/lib/glob-basic.t;-0 t/lib/glob-basic.t
--- t/lib/glob-basic.t;-0 Sun Feb 18 10:51:48 2001
+++ t/lib/glob-basic.t Mon Feb 19 22:58:25 2001
@@ -103,8 +103,8 @@
);

# Working on t/TEST often causes this test to fail because it sees temp
-# and RCS files. Filter them out.
-@a = grep !/(,v$|~$)/, @a;
+# and RCS files. Filter them out, and .pm files too.
+@a = grep !/(,v$|~$|\.pm$)/, @a;

unless (@a == 3
and $a[0] eq ($^O eq 'VMS'? 'test.' : 'TEST')
$ gdiff -u t/run/runenv.t;-0 t/run/runenv.t
--- t/run/runenv.t;-0 Sun Feb 18 10:54:18 2001
+++ t/run/runenv.t Mon Feb 19 22:51:25 2001
@@ -7,6 +7,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ unless ( defined($Config{'d_fork'}) ) {
+ print "1..0 # Skip: fork() is not available on this platform.\n";
+ exit 0;
+ }
}

my $STDOUT = './results-0';
[end of patch]

Search Discussions

Related Discussions

Discussion Navigation
viewthread | post
Discussion Overview
groupperl5-porters @
categoriesperl
postedFeb 20, '01 at 5:35a
activeFeb 20, '01 at 5:35a
posts1
users1
websiteperl.org

1 user in discussion

Craig A. Berry: 1 post

People

Translate

site design / logo © 2021 Grokbase