Changeset 4333 for lang/perl/Text-MeCab

Timestamp:

01/10/08 10:13:22 (5 years ago)

Author:

daisuke

Message:

lang/perl/Text-MeCab?; return mecab-config as well

Files:

• lang/perl/Text-MeCab/trunk/tools/probe_mecab.pl (modified) (3 diffs)

lang/perl/Text-MeCab/trunk/tools/probe_mecab.pl

@@ -9 +9 @@
 use ExtUtils::MakeMaker;
 
-my($version, $cflags, $libs);
+my($version, $cflags, $libs, $mecab_config);
 
 $cflags = '';
+$mecab_config = '';
 
 # Save the poor puppies that run on Windows
@@ -40 +41 @@
 } else {
     # try probing in places where we expect it to be
-    my $mecab_config;
     my $default_config;
     foreach my $path qw(/usr/bin /usr/local/bin) {
@@ -107 +107 @@
 print "Using $encoding as your dictionary encoding\n";
 
-return { version => $version, cflags => $cflags, libs => $libs, encoding => $encoding };
+return {
+    version  => $version,
+    cflags   => $cflags,
+    libs     => $libs,
+    encoding => $encoding,
+    config   => $mecab_config,
+};