Index: lang/perl/Text-MeCab/trunk/Makefile.PL
===================================================================
--- lang/perl/Text-MeCab/trunk/Makefile.PL (revision 4251)
+++ lang/perl/Text-MeCab/trunk/Makefile.PL (revision 4334)
@@ -42,5 +42,8 @@
 link("lib/Text/MeCab.xs", "MeCab.xs");
 
-my @define = ( "-DTEXT_MECAB_ENCODING='\"$result->{encoding}\"'" );
+my @define = (
+    "-DTEXT_MECAB_ENCODING='\"$result->{encoding}\"'",
+    "-DTEXT_MECAB_CONFIG='\"$result->{config}\"'",
+);
 if ($debugging) {
     push @define, "-DTEXT_MECAB_DEBUG=1";
Index: lang/perl/Text-MeCab/trunk/text-mecab.c
===================================================================
--- lang/perl/Text-MeCab/trunk/text-mecab.c (revision 4155)
+++ lang/perl/Text-MeCab/trunk/text-mecab.c (revision 4334)
@@ -32,4 +32,6 @@
     newCONSTSUB(stash, "MECAB_SYS_DIC", newSViv(MECAB_SYS_DIC));
     newCONSTSUB(stash, "MECAB_UNK_DIC", newSViv(MECAB_UNK_DIC));
+
+    newCONSTSUB(stash, "MECAB_CONFIG", newSVpvf("%s", TEXT_MECAB_CONFIG));
 }