diff --git a/lib/Glib/Object/Subclass.pm b/lib/Glib/Object/Subclass.pm index 1652d8e..5968b65 100644 --- a/lib/Glib/Object/Subclass.pm +++ b/lib/Glib/Object/Subclass.pm @@ -227,12 +227,12 @@ sub import { # ignore anything that doesn't look like a registration attempt. return unless @_ > 1; - my ($self, $superclass, %arg) = @_; + my ($self, $superclass, @args) = @_; my $class = caller; Glib::Type->register_object( $superclass, $class, - %arg, + @args, ); # ensure that we have a perlish new(). the old version of this