A Quick Quiz

[David Wheeler]

Given this script, what would you expect the output to be?

#!/usr/bin/perl -w

use strict;

my %hash = (Perm => 1);

my @keys = keys %hash;
print "Keys: @keys\n";
test();
@keys = keys %hash;
print "Keys: @keys\n";

sub test { local $hash{Temp} = 'UTC' }

__END__

Hint: IMO, this is rather bug-like.

Regards,

David

-- 
David Wheeler                                     AIM: dwTheory
[EMAIL PROTECTED]                                 ICQ: 15726394
                                               Yahoo!: dew7e
                                               Jabber: [EMAIL PROTECTED]