Changeset 202 for MMagic

Timestamp:

02/08/06 21:33:08 (6 years ago)

Author:

usu

Message:

* MMagic.pm (magicMatch, dumpMagic): Fixed time waste problem.

Location:

MMagic/trunk

Files:

• ChangeLog (modified) (1 diff)
• MMagic.pm (modified) (2 diffs)

MMagic/trunk/ChangeLog

@@ +1 @@
+2006-02-08  Yukio USUDA  <usu@namazu.org>
+
+        * MMagic.pm (magicMatch, dumpMagic): Fixed time waste problem.
+
 2006-01-30  NOKUBI Takatsugu  <knok@daionet.gr.jp>
 

MMagic/trunk/MMagic.pm

@@ -763 +763 @@
     # raw string, line number, and subtests until we need the real info.
     # this saves time otherwise wasted parsing unused subtests.
-    $item = readMagicLine(@$item) if @$item == 3;
+    if (@$item == 3){
+        my $tmp = readMagicLine(@$item);
+        @$item = @$tmp;
+    }
 
     # $item could be undef if we ran into troubles while reading
@@ -1321 +1324 @@
         # delayed evaluation.
         $entry = readMagicLine(@$entry) if @$entry == 3;
+        if (@$entry == 3){
+            my $tmp = readMagicLine(@$entry);
+            @$entry = @$tmp;
+        }
 
         next if !defined($entry);