diff options
| author | Tkil <tkil@reptile.scrye.com> | 1997-12-03 19:38:26 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-03 04:30:22 +0000 |
| commit | 2c4aebbdec0f7c22369f4986d7cad0139e4dd272 (patch) | |
| tree | 4f142dd19d83b7c0d301644d0066424493970de9 /gv.c | |
| parent | bde90e6697646d73abeebaccd6d7fdd8c9aa0c9f (diff) | |
| download | perl-2c4aebbdec0f7c22369f4986d7cad0139e4dd272.tar.gz | |
[win32] merge another conflicting maintpatch to op.c
#17: "Enhanced "use strict" warning"
Msg-ID: <199712040938.CAA07628@reptile.scrye.com>
Files: gv.c t/pragma/strict-subs t/pragma/strict-vars
p4raw-id: //depot/win32/perl@640
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 10 |
1 files changed, 9 insertions, 1 deletions
@@ -531,7 +531,15 @@ gv_fetchpv(char *nambeg, I32 add, I32 sv_type) if (!stash) { if (add) { - warn("Global symbol \"%s\" requires explicit package name", name); + char sv_type_char = ((sv_type == SVt_PV) ? '$' + : (sv_type == SVt_PVAV) ? '@' + : (sv_type == SVt_PVHV) ? '%' + : 0); + if (sv_type_char) + warn("Global symbol \"%c%s\" requires explicit package name", + sv_type_char, name); + else + warn("Global symbol \"%s\" requires explicit package name", name); ++error_count; stash = curstash ? curstash : defstash; /* avoid core dumps */ add_gvflags = ((sv_type == SVt_PV) ? GVf_IMPORTED_SV |