diff --git a/src/perl.c b/src/perl.c
index f42708d7dde81cff2d8d811f66d0a3e2eda8e781..c9977496dc95b1ea11e742ed290c6b6fbb157ce2 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
{
"LoadPlugin",
"BaseName",
- NULL
+ "IncludeDir"
};
static int config_keys_num = STATIC_ARRAY_SIZE (config_keys);
strncpy (base_name, value, sizeof (base_name));
base_name[sizeof (base_name) - 1] = '\0';
}
+ else if (0 == strcasecmp (key, "IncludeDir")) {
+ Perl_av_unshift (perl, GvAVn (PL_incgv), 1);
+ Perl_av_store (perl, GvAVn (PL_incgv),
+ 0, Perl_newSVpv (perl, value, strlen (value)));
+ }
else {
return -1;
}