Include variable names in "Use of uninitialized value" warnings

[perl.git] / lib / Tie / RefHash.t

diff --git a/lib/Tie/RefHash.t b/lib/Tie/RefHash.t
index 52e3a2d..55fde14 100644 (file)
--- a/lib/Tie/RefHash.t
+++ b/lib/Tie/RefHash.t
@@ -208,6 +208,7 @@ sub runtests {
             s/ at .+ line \d+\.$//mg;
             s/ at .+ line \d+, at .*//mg;
             s/ at .+ line \d+, near .*//mg;
+           s/(uninitialized value)( within)? [\$@%].*? in /$1 in /g;
         }
 
         my (@warnings, %seen);