diff --git a/japanese/chasen/files/patch-ag b/japanese/chasen/files/patch-ag
new file mode 100644
index 000000000000..efe058359ed3
--- /dev/null
+++ b/japanese/chasen/files/patch-ag
@@ -0,0 +1,11 @@
+--- perl/ChaSen.xs.orig	Wed Aug 18 16:02:16 1999
++++ perl/ChaSen.xs	Tue Aug  1 18:16:03 2000
+@@ -12,6 +12,8 @@
+ #include "EXTERN.h"
+ #include "perl.h"
+ #include "XSUB.h"
++#define PERL_POLLUTE 1
++#include "embedvar.h"
+ #ifdef __cplusplus
+ }
+ #endif