]>
git.vpit.fr Git - perl/modules/Variable-Temp.git/commitdiff
}
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;