Molybdenum Monks,

Uh, it's Twilight Zone time here. For three years this has been working fine:

foreach $group_id (keys  %data) {
     @temp = sort keys %{ $data{$group_id} };
     $my_hoa{$group_id}{'ordered'} = [ @temp ];
}

foreach $group_id (sort keys  %my_hoa) {
     for $i (0 .. $#{ @{ $my_hoa{$group_id}{'ordered'} } }) {
          # output some stuff;
     }
}
[download]

Then a few days ago the loop stopped working. After adding

print "<p>array length = ".$#{ @{ $pubs{$lang_group_id}{'pub_alpha_ord
+er'} } }."<p>\n";
[download]

at the beginning of the output loop, it became clear that

$#{ @{ $pubs{$lang_group_id}{'pub_alpha_order'} } }

was coming back as -1.

Weird, but ok, so just for argument's sake I changed it to

$#{ $pubs{$lang_group_id}{'pub_alpha_order'} }

And miracle of miracles, we're back in business. But, cue the Twilight Zone music, as I said, this has been working fine for years. Or has it?

Two possibilities - it never really worked, everyone just thinks they remember it working, or the server admins updated Perl and the new version refers to this kind of thing differently? So I'm inquiring about the second possiblity - did the way you refer to this change in a recent update of Perl? If not, we're checking the koolaid.

Thanks