diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-06 07:19:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-06 07:19:39 +0000 |
| commit | e24b16f93601a2fb49f1bbf6bab19c3bfe09c0e8 (patch) | |
| tree | 2486134e928dceaecf5804e2e21da9bbf3065728 /mg.c | |
| parent | 0a3e5ca21a6646f3abf4cafe2bcefb8a5b50aa83 (diff) | |
| download | perl-e24b16f93601a2fb49f1bbf6bab19c3bfe09c0e8.tar.gz | |
fix globals caught by change#1927; builds and tests on Solaris
p4raw-link: @1927 on //depot/perl: eb07465ebe1238598e948058857ec948c6697f86
p4raw-id: //depot/perl@1936
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -464,15 +464,15 @@ magic_get(SV *sv, MAGIC *mg) break; case '\002': /* ^B */ /* printf("magic_get $^B: ") ; */ - if (curcop->cop_warnings == WARN_NONE) + if (PL_curcop->cop_warnings == WARN_NONE) /* printf("WARN_NONE\n"), */ sv_setpvn(sv, WARN_NONEstring, WARNsize) ; - else if (curcop->cop_warnings == WARN_ALL) + else if (PL_curcop->cop_warnings == WARN_ALL) /* printf("WARN_ALL\n"), */ sv_setpvn(sv, WARN_ALLstring, WARNsize) ; else - /* printf("some %s\n", printW(curcop->cop_warnings)), */ - sv_setsv(sv, curcop->cop_warnings); + /* printf("some %s\n", printW(PL_curcop->cop_warnings)), */ + sv_setsv(sv, PL_curcop->cop_warnings); break; case '\004': /* ^D */ sv_setiv(sv, (IV)(PL_debug & 32767)); @@ -1639,15 +1639,15 @@ magic_set(SV *sv, MAGIC *mg) case '\002': /* ^B */ if ( ! (PL_dowarn & G_WARN_ALL_MASK)) { if (memEQ(SvPVX(sv), WARN_ALLstring, WARNsize)) - compiling.cop_warnings = WARN_ALL; + PL_compiling.cop_warnings = WARN_ALL; else if (memEQ(SvPVX(sv), WARN_NONEstring, WARNsize)) - compiling.cop_warnings = WARN_NONE; + PL_compiling.cop_warnings = WARN_NONE; else { - if (compiling.cop_warnings != WARN_NONE && - compiling.cop_warnings != WARN_ALL) - sv_setsv(compiling.cop_warnings, sv); + if (PL_compiling.cop_warnings != WARN_NONE && + PL_compiling.cop_warnings != WARN_ALL) + sv_setsv(PL_compiling.cop_warnings, sv); else - compiling.cop_warnings = newSVsv(sv) ; + PL_compiling.cop_warnings = newSVsv(sv) ; } } break; |