From e3407aba2c52ce8e302b2dc706d0837bc82c537f Mon Sep 17 00:00:00 2001 From: John Peacock Date: Mon, 24 Sep 2001 13:29:03 -0400 Subject: warning on v-string in use/require Message-ID: <3BAFA59F.9C0E0339@rowman.com> p4raw-id: //depot/perl@12205 --- pp_ctl.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'pp_ctl.c') diff --git a/pp_ctl.c b/pp_ctl.c index d488b7ce37..2c7bde33c7 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -3061,6 +3061,9 @@ PP(pp_require) "v%d.%d.%d, stopped", rev, ver, sver, PERL_REVISION, PERL_VERSION, PERL_SUBVERSION); } + if (ckWARN(WARN_PORTABLE)) + Perl_warner(aTHX_ WARN_PORTABLE, + "v-string in use/require non-portable"); RETPUSHYES; } else if (!SvPOKp(sv)) { /* require 5.005_03 */ -- cgit v1.2.1