| Subject: | Input check uses ref and not ISA |
The constructor is using ref to determine the class if its input, ie. ref $stuff eq "Mail::Internet".
It would be much more flexable to use ISA, ie. UNIVERSAL::isa($stuff,"Mail::Internet").
Patch is included.
--- LocalDelivery.pm~ 2002-06-07 09:37:47.000000000 -0400
+++ LocalDelivery.pm 2003-04-16 14:56:46.000000000 -0400
@@ -108,7 +108,7 @@
my $self;
# What sort of stuff do we have?
- if (ref $stuff eq "Mail::Internet" or ref $stuff eq "MIME::Entity"){
+ if (UNIVERSAL::isa($stuff,"Mail::Internet") or UNIVERSAL::isa($stuff,"MIME::Entity")){
$self = $stuff;
} elsif (ref $stuff eq "ARRAY" or ref $stuff eq "GLOB") {
$self = new Mail::Internet($stuff);