From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 13 Sep 2003 06:07:27 +0000 (+0000)
Subject: Make the new glob tests pass (well, skip) even with miniperl.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8cf0503e5a239a6622be2d849ac864d980b7142d;p=p5sagit%2Fp5-mst-13.2.git

Make the new glob tests pass (well, skip) even with miniperl.

p4raw-id: //depot/perl@21202
---

diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t
index d8cc862..0f5073d 100644
--- a/t/run/fresh_perl.t
+++ b/t/run/fresh_perl.t
@@ -824,11 +824,12 @@ EXPECT
 foo at - line 1.
 ######## glob() bug Mon, 01 Sep 2003 02:25:41 -0700 <200309010925.h819Pf0X011457@smtp3.ActiveState.com>
 -lw
+BEGIN {
+  eval 'require Fcntl';
+  if ($@) { print qq[./"TEST"\n./"TEST"\n]; exit 0 } # running minitest?
+}
 if ($^O eq 'VMS') { # VMS is not *that* kind of a glob.
-print <<__EOF__;
-./"TEST"
-./"TEST"
-__EOF__
+print qq[./"TEST"\n./"TEST"\n];
 } else {
 print glob(q(./"TEST"));
 use File::Glob;
@@ -839,11 +840,12 @@ EXPECT
 ./"TEST"
 ######## glob() bug Mon, 01 Sep 2003 02:25:41 -0700 <200309010925.h819Pf0X011457@smtp3.ActiveState.com>
 -lw
+BEGIN {
+  eval 'require Fcntl';
+  if ($@) { print qq[./"TEST"\n./"TEST"\n]; exit 0 } # running minitest?
+}
 if ($^O eq 'VMS') { # VMS is not *that* kind of a glob.
-print <<__EOF__;
-./"TEST"
-./"TEST"
-__EOF__
+print qq[./"TEST"\n./"TEST"\n];
 } else {
 use File::Glob;
 print glob(q(./"TEST"));