CVSROOT: /sources/m4
Module name: m4
Changes by: Gary V. Vaughan <gary> 07/09/12 01:14:49
Index: modules/perl.c
===================================================================
RCS file: /sources/m4/m4/modules/perl.c,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- modules/perl.c 7 Aug 2007 03:15:29 -0000 1.19
+++ modules/perl.c 12 Sep 2007 01:14:49 -0000 1.20
@@ -77,8 +77,8 @@
const lt_dlinfo *info = 0;
char *embedding[] = { "", "-e", "0" };
- if (handle)
- info = lt_dlgetinfo (handle);
+ if (module)
+ info = lt_dlgetinfo (module);
/* Start up a perl parser, when loaded for the first time. */
if (info && (info->ref_count == 1))
@@ -95,8 +95,8 @@
{
const lt_dlinfo *info = 0;
- if (handle)
- info = lt_dlgetinfo (handle);
+ if (module)
+ info = lt_dlgetinfo (module);
/* Recycle the perl parser, when unloaded for the last time. */
if (info && (info->ref_count == 1))
