fix here

[spider.git] / perl / Route.pm

diff --git a/perl/Route.pm b/perl/Route.pm
index 0676139aa033647f434bc557a6c6a4cdfc179c82..03dd1f43776a4ceba321740f1c5247a89f036532 100644 (file)
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -60,7 +60,9 @@ $filterdef = bless ([
 
 sub new
 {
-       my ($pkg, $call) = @_;
+       my $pkg = shift;
+       my $call = shift;
+
        $pkg = ref $pkg if ref $pkg;
 
        my $self = bless {call => $call}, $pkg;