X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F20-lvalue.t;h=f46032ec3f09ef457dabb828b486cd891c54417f;hb=bfae3c21b735c4d2843e7fb4003d0a9930e10589;hp=226eccc7d0d0e7186c023bf95e20b1edc26c5da6;hpb=74f10ab295009c4fb93ccf989d4ed442d15479d3;p=perl%2Fmodules%2FVariable-Temp.git
diff --git a/t/20-lvalue.t b/t/20-lvalue.t
index 226eccc..f46032e 100644
--- a/t/20-lvalue.t
+++ b/t/20-lvalue.t
@@ -20,6 +20,9 @@ sub describe {
return join ', ', map "$_:$h->{$_}", sort keys %$h;
}
+my $aelem_delete_msg = 'Localized extraneous array elements do not reset array length at scope end before perl 5.12';
+my $aelem_delete_ok = ("$]" >= 5.012);
+
# Lexicals
{
@@ -80,7 +83,8 @@ sub describe {
{
temp @y = [ qw ];
is "@y", 'a b c';
- {
+ SKIP: {
+ skip $aelem_delete_msg => 3 unless $aelem_delete_ok;
local $y[1] = 'd';
is "@y", 'a d c';
{
@@ -219,7 +223,8 @@ sub describe {
{
temp @Y = [ qw ];
is "@Y", 'a b c';
- {
+ SKIP: {
+ skip $aelem_delete_msg => 3 unless $aelem_delete_ok;
local $Y[1] = 'd';
is "@Y", 'a d c';
{