"Charles K. Clarkson" wrote:
> Hello all,
>
> The following thread was part of a reply written a while back.
Whoops. Missed it on my earlier post.
>
This constructor:
> sub new {
> my $class = shift;
> my $self = {
> file_name => undef,
> base => undef,
> path => undef,
> type => undef,
> };
Shoiuld probably have:
bless $self, $class
instead of just:
>
> bless $self;
> $self->initialize( @_ ) if @_;
> return $self;
> }
Gotta go. Thanks for the catch, David.
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
