diff options
| author | John Peacock <jpeacock@rowman.com> | 2001-09-24 13:29:03 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-25 17:20:38 +0000 |
| commit | c24276cabb7b7144f72e4e61964a326518ef7446 (patch) | |
| tree | 5ccb82ae580e805db2d049e3222233eec0804574 /pp_ctl.c | |
| parent | d73bac70b6073c9fed29c6580ca2b1ce55ddf32a (diff) | |
| download | perl-c24276cabb7b7144f72e4e61964a326518ef7446.tar.gz | |
warning on v-string in use/require
Message-ID: <3BAFA59F.9C0E0339@rowman.com>
p4raw-id: //depot/perl@12205
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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 */ |