fixes for bugs in C<use warnings qw(FATAL all)> (from Paul Marquess)

p4raw-id: //depot/perl@5995

1 files changed, 1 insertions, 1 deletions

diff --git a/mg.c b/mg.c
index 27039faf1c..0892511727 100644
--- a/mg.c
+++ b/mg.c
@@ -1735,7 +1735,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
 	            PL_compiling.cop_warnings = pWARN_NONE;
 		    break;
 		}
-                if (isWARN_on(sv, WARN_ALL)) {
+                if (isWARN_on(sv, WARN_ALL) && !isWARNf_on(sv, WARN_ALL)) {
 	            PL_compiling.cop_warnings = pWARN_ALL;
 	            PL_dowarn |= G_WARN_ONCE ;
 	        }