Include variable names in "Use of uninitialized value" warnings

[perl.git] / t / run / fresh_perl.t

diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t
index 0f5073d..d47f27f 100644 (file)
--- a/t/run/fresh_perl.t
+++ b/t/run/fresh_perl.t
@@ -510,7 +510,7 @@ else {
   if ($x == 0) { print "" } else { print $x }
 }
 EXPECT
-Use of uninitialized value in numeric eq (==) at - line 4.
+Use of uninitialized value $x in numeric eq (==) at - line 4.
 ########
 $x = sub {};
 foo();