Changeset 275

Timestamp:

09/19/06 17:22:20 (6 years ago)

Author:

knok

Message:

Fixed an expression.

Files:

• MMagic/trunk/MMagic.pm (modified) (1 diff)

MMagic/trunk/MMagic.pm

@@ -1280 +1280 @@
         # do octal/hex conversion
         # manmin
-        $testval =~ s/\\(x[0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;
+        $testval =~ s/\\x([0-9a-fA-F][0-9a-fA-F])/pack("H2", $1)/eg;
         $testval =~ s/\\([0-7][0-7]?[0-7]?)/chr(oct($1))/eg;
         # end manmin