[Bioperl-l] Vector.pm commit

[Paul-Christophe Varoutas]

cvs checkedout under cygwin (win2000).

I noticed that when I make test under perl 5.6.1 / cygwin I have these 2 
lines appearing a *lot* of times:


Ambiguous call resolved as CORE::shift(), qualify as such or use & at 
blib/lib/B
io/Root/Vector.pm line 948.
Ambiguous call resolved as CORE::shift(), qualify as such or use & at 
blib/lib/B
io/Root/Vector.pm line 973.


I guess this is because there is a shift() sub in Vector.pm, line 722:

#---------
sub shift {
#---------
my($self,%param) = @_;
$self = $self->first();
$self = $self->remove(%param);
}

Lines 948 and 973 are of this type:
#-------------
sub valid_any {
#-------------
my $self = shift;
...

I didn't have these warnings when I make tested with perl 5.004_04 / SunOS 5.6.

I replaced
    $self = shift;
by
    $self = &shift(@_);   (thanks Ewan)
in both lines.

Seems to be OK with perl 5.6.1 / cygwin and perl 5.004_04 / SunOS 5.6.

paulc