Re: cross-eyed object problem

[Tom Allison]

Here is my object script:
sub new
{
        my %args = (
                output_dir       => '/tmp',
                tmp_recycling    => 1,
                extract_uuencode => 1,
                ignore_errors    => 1
        );
        my $class = shift;
        %args = @_;

Ugh!!!

should be
my %a = @_;
%args = (%args, %a);

But it's all better now.

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>