Rename the global variable in t/10-base.t

[perl/modules/Variable-Temp.git] / t / 10-base.t

diff --git a/t/10-base.t b/t/10-base.t
index 57ea47f8ae5c55581cd1b34bf7358ddcbbaa46c5..d203f22fb360b07d1a61f3c48ddf1007ec6436a3 100644 (file)
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -24,36 +24,36 @@ is $x, 1;
 }
 is $x, 1;
 
-our $y = 1;
-is $y, 1;
+our $X = 1;
+is $X, 1;
 {
- set_temp $y => 2;
- is $y, 2;
- $y = 3;
- is $y, 3;
+ set_temp $X => 2;
+ is $X, 2;
+ $X = 3;
+ is $X, 3;
  {
-  set_temp $y => 4;
-  is $y, 4;
-  set_temp $y => 5;
-  is $y, 5;
+  set_temp $X => 4;
+  is $X, 4;
+  set_temp $X => 5;
+  is $X, 5;
  }
- is $y, 3;
+ is $X, 3;
  {
-  local $y = 6;
-  is $y, 6;
+  local $X = 6;
+  is $X, 6;
  }
- is $y, 3;
+ is $X, 3;
  {
-  local $y = 7;
-  set_temp $y => 8;
-  is $y, 8;
+  local $X = 7;
+  set_temp $X => 8;
+  is $X, 8;
  }
- is $y, 3;
+ is $X, 3;
  {
-  set_temp $y => 9;
-  local $y = 10;
-  is $y, 10;
+  set_temp $X => 9;
+  local $X = 10;
+  is $X, 10;
  }
- is $y, 3;
+ is $X, 3;
 }
-is $y, 1;
+is $X, 1;