blob: 06758904878c38046d4583a3e141d9c635a393a0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
--- 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
|
