18 lines
478 B
Perl
18 lines
478 B
Perl
--- lib/Senna/Symbol.pm.orig Wed Oct 18 14:04:47 2006
|
|
+++ lib/Senna/Symbol.pm Wed Oct 18 14:05:03 2006
|
|
@@ -59,7 +59,7 @@
|
|
sub %s
|
|
{
|
|
my $self = shift;
|
|
- my %args = @_;
|
|
+ my %%args = @_;
|
|
$self->xs_%s(@args{qw(key)});
|
|
}
|
|
EOSUB
|
|
@@ -117,4 +117,4 @@
|
|
|
|
Development funded by Brazil Ltd. E<lt>http://dev.razil.jp/project/senna/E<gt>
|
|
|
|
-=cut
|
|
\ No newline at end of file
|
|
+=cut
|