RT #75468: readline ignores <> overloading when arg is tied

[perl5.git] / t / lib / mypragma.pm

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