Jcode-0.71Jcode-0-71

1 files changed, 9 insertions, 10 deletions

diff --git a/cpan/dist/Jcode/t/unibench.pl b/cpan/dist/Jcode/t/unibench.pl
index 6a7e084c..d9ac7a42 100644
--- a/cpan/dist/Jcode/t/unibench.pl
+++ b/cpan/dist/Jcode/t/unibench.pl
@@ -2,16 +2,16 @@
 
 use ExtUtils::testlib;
 use Benchmark;
+use strict;
+use lib qw(.);
 
 $| = 1;
 
-
-print "Jcode Loading...\n";
 require Jcode;
 $Jcode::DEBUG = 1;
+$Jcode::NOXS = $ARGV[0];
 print "done.\n";
-
-$file = "t/table.euc";
+my $file = "t/table.euc";
 open F, $file or die "$file:$!";
 my $euc;
 read F, $euc, -s $file;
@@ -19,16 +19,14 @@ read F, $euc, -s $file;
 my $ucs2 = Jcode->new($euc)->ucs2;
 my $utf8 = Jcode->new($euc)->utf8;
 
-my $count = $ARGV[0] || 16;
+my $count = $ARGV[1] || 16;
 
 timethese($count, {
     "utf8->ucs2" =>  \&utf8_ucs2,
     "ucs2->utf8" =>  \&ucs2_utf8,
-    "euc->ucs2"  =>  \&euc_ucs2,
-    "ucs2->euc"  =>  \&ucs2_euc,
-    }
-	  );
-
+    "ucs2->euc" =>   \&ucs2_euc,
+    "ucs2->utf8" =>  \&ucs2_utf8,
+});
 
 sub utf8_ucs2{
     &Jcode::utf8_ucs2($utf8);
@@ -45,3 +43,4 @@ sub euc_ucs2{
 sub ucs2_euc{
     &Jcode::ucs2_euc($ucs2);
 }
+