summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-05-23 18:55:13 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-05-23 18:55:13 +0000
commitfe5e78edd9ab337ef125ca9ff835e10989fe0004 (patch)
tree5c7c7beea0775581d2050b16e4843033dc8deb3f /pp.c
parent09ecc4b69a964aa52843e24f44be5f67b6fadd59 (diff)
downloadperl-fe5e78edd9ab337ef125ca9ff835e10989fe0004.tar.gz
[win32] merge change#1015 from maintbranch (must revisit 1014 later, is
incomplete) p4raw-link: @1015 on //depot/maint-5.004/perl: 64d1d4c7d00380b54e18db9c0a16ddef0f41b0a2 p4raw-id: //depot/win32/perl@1029
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index bd5fd38e7e..4619b29748 100644
--- a/pp.c
+++ b/pp.c
@@ -773,7 +773,7 @@ PP(pp_undef)
hv_undef((HV*)sv);
break;
case SVt_PVCV:
- if (cv_const_sv((CV*)sv))
+ if (dowarn && cv_const_sv((CV*)sv))
warn("Constant subroutine %s undefined",
CvANON((CV*)sv) ? "(anonymous)" : GvENAME(CvGV((CV*)sv)));
/* FALL THROUGH */