From 6d70c686156da1532212fbc817c63c0a02bf894a Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Sun, 9 Dec 2012 05:03:50 -0800
Subject: [PATCH] t/op/lex.t: Fix test

It was a copied-and-pasted repeat of another test, both of which I
added in commit 67a057d6d.  I know it used to crash and the commit
fixed it, as I tested it at the time with one-liners.
---
 t/op/lex.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/op/lex.t b/t/op/lex.t
index c009f2d..7601b95 100644
--- a/t/op/lex.t
+++ b/t/op/lex.t
@@ -62,7 +62,8 @@ fresh_perl_is(
   'no crash when charnames cannot load and %^H holds string'
 );
 fresh_perl_is(
-  'BEGIN{ ++$_ for @INC{"charnames.pm","_charnames.pm"} } "\N{a}"',
+  'BEGIN{ ++$_ for @INC{"charnames.pm","_charnames.pm"};
+          $^H{charnames} = \"foo" } "\N{a}"',
   'Constant(\N{a}) unknown at - line 1, within string' . "\n"
  ."Execution of - aborted due to compilation errors.\n",
    { stderr => 1 },
-- 
2.7.4