Merge branch 'crippled_locales' into blead

[perl5.git] / op.c

diff --git a/op.c b/op.c
index 2b162e1..75d25f3 100644 (file)
--- a/op.c
+++ b/op.c
@@ -17053,7 +17053,7 @@ Perl_dup_warnings(pTHX_ STRLEN* warnings)
     Size_t size;
     STRLEN *new_warnings;
 
-    if (specialWARN(warnings))
+    if (warnings == NULL || specialWARN(warnings))
         return warnings;
 
     size = sizeof(*warnings) + *warnings;