Change 20980 by [EMAIL PROTECTED] on 2003/09/01 08:49:02
Subject: glob() bug
From: Gurusamy Sarathy <[EMAIL PROTECTED]>
Date: Mon, 01 Sep 2003 02:25:41 -0700
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/op.c#582 edit
... //depot/perl/t/run/fresh_perl.t#24 edit
Differences ...
==== //depot/perl/op.c#582 (text) ====
Index: perl/op.c
--- perl/op.c#581~20930~ Fri Aug 29 05:57:07 2003
+++ perl/op.c Mon Sep 1 01:49:02 2003
@@ -5311,7 +5311,7 @@
#if !defined(PERL_EXTERNAL_GLOB)
/* XXX this can be tightened up and made more failsafe. */
- if (!gv) {
+ if (!(gv && GvCVu(gv) && GvIMPORTED_CV(gv))) {
GV *glob_gv;
ENTER;
Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT,
==== //depot/perl/t/run/fresh_perl.t#24 (text) ====
Index: perl/t/run/fresh_perl.t
--- perl/t/run/fresh_perl.t#23~20901~ Mon Aug 25 22:18:15 2003
+++ perl/t/run/fresh_perl.t Mon Sep 1 01:49:02 2003
@@ -822,5 +822,20 @@
$_="foo";utf8::upgrade($_);/bar/i,warn$_;
EXPECT
foo at - line 1.
-
-
+######## glob() bug Mon, 01 Sep 2003 02:25:41 -0700 <[EMAIL PROTECTED]>
+-lw
+print glob(q(./"TEST"));
+use File::Glob;
+print glob(q(./"TEST"));
+EXPECT
+./"TEST"
+./"TEST"
+######## glob() bug Mon, 01 Sep 2003 02:25:41 -0700 <[EMAIL PROTECTED]>
+-lw
+use File::Glob;
+print glob(q(./"TEST"));
+use File::Glob;
+print glob(q(./"TEST"));
+EXPECT
+./"TEST"
+./"TEST"
End of Patch.
