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
{
{
set_temp @y => [ qw<a b c> ];
is "@y", 'a b c';
- {
+ SKIP: {
+ skip $aelem_delete_msg => 3 unless $aelem_delete_ok;
local $y[1] = 'd';
is "@y", 'a d c';
{
{
set_temp @Y => [ qw<a b c> ];
is "@Y", 'a b c';
- {
+ SKIP: {
+ skip $aelem_delete_msg => 3 unless $aelem_delete_ok;
local $Y[1] = 'd';
is "@Y", 'a d c';
{