On Fri, Dec 14, 2001 at 10:58:06PM -0800, David Wheeler wrote:
> Given this script, what would you expect the output to be?

Depends on whether you're running bleadperl or not. :)

> #!/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]
> 
> 
> 

-- 

Michael G. Schwern   <[EMAIL PROTECTED]>    http://www.pobox.com/~schwern/
Perl Quality Assurance      <[EMAIL PROTECTED]>         Kwalitee Is Job One
flatulent no more,
I only make large bubbles
of paste from my ass.
        -- japhy

Reply via email to