diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-07 16:09:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-07 16:09:54 +0000 |
| commit | 6a8181172ab18fb057dd6fb202936705ede77746 (patch) | |
| tree | 3b496baf200a0745d01c384d216a2c08243f271b /mg.c | |
| parent | e9ff6d2717dce18093d60b3839463976bb523752 (diff) | |
| download | perl-6a8181172ab18fb057dd6fb202936705ede77746.tar.gz | |
${^Warnings} renamed to ${^WARNING_BITS}
p4raw-id: //depot/perl@5025
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -570,10 +570,10 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) case '\025': /* ^U */ sv_setiv(sv, (IV)PL_bigchar); break; - case '\027': /* ^W & $^Warnings*/ + case '\027': /* ^W & $^WARNING_BITS */ if (*(mg->mg_ptr+1) == '\0') sv_setiv(sv, (IV)((PL_dowarn & G_WARN_ON) ? TRUE : FALSE)); - else if (strEQ(mg->mg_ptr, "\027arnings")) { + else if (strEQ(mg->mg_ptr, "\027ARNING_BITS")) { if (PL_compiling.cop_warnings == WARN_NONE || PL_compiling.cop_warnings == WARN_STD) { @@ -1713,7 +1713,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) case '\025': /* ^U */ PL_bigchar = SvTRUE(sv); break; - case '\027': /* ^W & $^Warnings */ + case '\027': /* ^W & $^WARNING_BITS */ if (*(mg->mg_ptr+1) == '\0') { if ( ! (PL_dowarn & G_WARN_ALL_MASK)) { i = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv); @@ -1721,7 +1721,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) | (i ? G_WARN_ON : G_WARN_OFF) ; } } - else if (strEQ(mg->mg_ptr, "\027arnings")) { + else if (strEQ(mg->mg_ptr, "\027ARNING_BITS")) { if ( ! (PL_dowarn & G_WARN_ALL_MASK)) { if (memEQ(SvPVX(sv), WARN_ALLstring, WARNsize)) { PL_compiling.cop_warnings = WARN_ALL; |