perlquestion
strat
<p>Good morning,</p>
<p>I found a strange behaviour of perl when a function has the same fully qualified name as a package name. Here a shortened example:</p>
<p>Code 1: fails</p>
<code>
#! /usr/bin/perl
use warnings;
use strict;
package ABCconf;
sub Query {
my( $package ) = caller;
print "Query called from $package\n";
my $x = ABCconf::Query->new();
}
sub Insert {
print "Insert called\n";
my $x = ABCconf::Query->new(); # <= problem: calls ABCconf::Query and then on its output ->new
} # Insert
package ABCconf::Query;
sub new {
my $class = shift;
print "New called: $class\n";
return bless {}, $class;
} # new
package main;
ABCconf::Query();
print "-" x 60, "\n";
ABCconf::Insert();
</code>
<p>Output:</p>
<code>
D:\>perl testBug.pl
Query called from main
New called: ABCconf::Query
------------------------------------------------------------
Insert called
Query called from ABCconf
New called: ABCconf::Query
New called: ABCconf::Query=HASH(0x226290)
Attempt to bless into a reference at testBug.pl line 24.
</code>
<p>If I put the sub Insert before sub Query, everything works as expected.</p>
<p>Code 2: works</p>
<code>
#! /usr/bin/perl
use warnings;
use strict;
package ABCconf;
sub Insert {
print "Insert called\n";
my $x = ABCconf::Query->new();
} # Insert
sub Query {
my( $package ) = caller;
print "Query called from $package\n";
my $x = ABCconf::Query->new();
}
package ABCconf::Query;
sub new {
my $class = shift;
print "New called: $class\n";
return bless {}, $class;
} # new
package main;
ABCconf::Query();
print "-" x 60, "\n";
ABCconf::Insert();
</code>
<p>Output:</p>
<code>
D:\>perl testBug.pl
Query called from main
New called: ABCconf::Query
------------------------------------------------------------
Insert called
New called: ABCconf::Query
</code>
<p>I know it isn't a good idea to use the same fully qualified name for a package or a sub, but I can't change it. Is this a bug, an inconsistency or a feature?</p>
<p>Testet with</p>
<code>
D:\>perl -v
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 18 registered patches, see perl -V for more detail)
Copyright 1987-2007, Larry Wall
Binary build 822 [280952] provided by ActiveState http://www.ActiveState.com
Built Jul 31 2007 19:34:48
...
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-123953">
<P>
Best regards,<BR>
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"
</div></div>