Change 11537 by jhi@alpha on 2001/08/01 16:26:25
Subject: Re: [PATCH pp_ctl.c] proposed Windows safe-guard
From: Doug MacEachern <[EMAIL PROTECTED]>
Date: Mon, 30 Jul 2001 17:38:50 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/op.c#417 edit
... //depot/perl/t/TestInit.pm#4 edit
Differences ...
==== //depot/perl/op.c#417 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Wed Aug 1 10:30:05 2001
+++ perl/op.c Wed Aug 1 10:30:05 2001
@@ -3217,6 +3217,9 @@
OP *pack;
OP *imop;
OP *veop;
+ char *packname = Nullch;
+ STRLEN packlen;
+ SV *packsv;
if (id->op_type != OP_CONST)
Perl_croak(aTHX_ "Module name must be constant");
@@ -3274,6 +3277,12 @@
newSVOP(OP_METHOD_NAMED, 0, meth)));
}
+ if (ckWARN(WARN_MISC) && imop && SvPOK(packsv = ((SVOP*)id)->op_sv)) {
+ /* BEGIN will free the ops, so we need to make a copy */
+ packlen = SvCUR(packsv);
+ packname = savepvn(SvPVX(packsv), packlen);
+ }
+
/* Fake up the BEGIN {}, which does its thing immediately. */
newATTRSUB(floor,
newSVOP(OP_CONST, 0, newSVpvn("BEGIN", 5)),
@@ -3285,6 +3294,15 @@
newSTATEOP(0, Nullch, veop)),
newSTATEOP(0, Nullch, imop) ));
+ if (packname) {
+ if (ckWARN(WARN_MISC) && !gv_stashpvn(packname, packlen, FALSE)) {
+ Perl_warner(aTHX_ WARN_MISC,
+ "Package `%s' not found "
+ "(did you use the incorrect case?)", packname);
+ }
+ safefree(packname);
+ }
+
PL_hints |= HINT_BLOCK_SCOPE;
PL_copline = NOLINE;
PL_expect = XSTATE;
==== //depot/perl/t/TestInit.pm#4 (text) ====
Index: perl/t/TestInit.pm
--- perl/t/TestInit.pm.~1~ Wed Aug 1 10:30:05 2001
+++ perl/t/TestInit.pm Wed Aug 1 10:30:05 2001
@@ -13,6 +13,8 @@
# PS this is not POD because this should be a very minimalist module in
# case of funaemental perl breakage.
+package TestInit;
+
chdir 't' if -d 't';
@INC = '../lib';
$0 =~ s/\.dp$//; # for the test.deparse make target
End of Patch.
