Make lc/uc/lcfirst/ucfirst warn when passed undef.

[p5sagit/p5-mst-13.2.git] / t / lib / mypragma.pm

diff --git a/t/lib/mypragma.pm b/t/lib/mypragma.pm
index d1f52c6..fc6ee7b 100644 (file)
--- a/t/lib/mypragma.pm
+++ b/t/lib/mypragma.pm
@@ -30,8 +30,7 @@ use strict;
 use warnings;
 
 sub import {
-    $^H{mypragma} = 1;
-    $^H |= 0x00020000;
+    $^H{mypragma} = 42;
 }
 
 sub unimport {