Revision: 4951
http://svn.sourceforge.net/openkore/?rev=4951&view=rev
Author: arachnophobia
Date: 2006-09-23 05:20:41 -0700 (Sat, 23 Sep 2006)
Log Message:
-----------
no need to copy arrays, save memory.
Modified Paths:
--------------
macro/trunk/Macro/Script.pm
Modified: macro/trunk/Macro/Script.pm
===================================================================
--- macro/trunk/Macro/Script.pm 2006-09-23 12:02:18 UTC (rev 4950)
+++ macro/trunk/Macro/Script.pm 2006-09-23 12:20:41 UTC (rev 4951)
@@ -27,7 +27,6 @@
name => $name,
registered => 0,
submacro => 0,
- script => [@{$macro{$name}}],
macro_delay => $timeout{macro_delay}{timeout},
timeout => 0,
time => time,
@@ -188,7 +187,7 @@
return
}
- my $line = ${$self->{script}}[$self->{line}];
+ my $line = ${$macro{$self->{name}}}[$self->{line}];
if (!defined $line) {
if ($self->{repeat} > 1) {
$self->{repeat}--;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|