diff --git a/src/modules/Perl/perlmod.c b/src/modules/Perl/perlmod.c index 9a936caabeeb7f8bf1d8fe5bf4b80c305b86d6b7..73809f6f3e423513cc0d3c6e8bf3c0d0f1da8324 100644 --- a/src/modules/Perl/perlmod.c +++ b/src/modules/Perl/perlmod.c @@ -152,7 +152,7 @@ static void perlmod_create(INT32 args) error("Perl: Too few elements in argv array.\n"); if(THIS->argv_strings->type_field & ~BIT_STRING) - error("Bad argument 2 to Perl->create().\n"); + error("Bad argument 1 to Perl->create().\n"); } THIS->argv=(char **)xalloc(sizeof(char *)*THIS->argv_strings->size);