Re: cross-eyed object problem

[Tom Allison]

Tom Allison wrote:

I'm stuck....  I need an extra pair of eyes.

It helps to walk away for a while

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 = @_;

I over write %args...
change to
my %a = @_;
%args = (%args, %a);

But I'm not sure that this is as clean as it could be.

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