changeset 24:15b72cc602b4

Create arrays from arrayrefs correctly
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Sun, 25 Sep 2011 15:22:56 -0500
parents 77444d749997
children 0ca9319b0d7f
files teh-lol.pl
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/teh-lol.pl
+++ b/teh-lol.pl
@@ -28,7 +28,7 @@
 my %timestamp;
 
 sub update_tstamp{
-  my @xchat_args = $_[0];
+  my @xchat_args = @{$_[0]};
   my $msg = $xchat_args[1];
   if( $_[0][1] eq "lol" ){
     my $chan = Xchat::get_info("channel");
@@ -48,7 +48,7 @@
 }
 
 sub check_lol {
-  my @xchat_args = $_[0];
+  my @xchat_args = @{$_[0]};
   my $chatter = $xchat_args[0];
   my $msg = $xchat_args[1];