This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix typo in NeXT dynaloader
[perl5.git] / ext / DynaLoader / dl_next.xs
index 952c022..92d14bc 100644 (file)
@@ -208,7 +208,7 @@ char *symbol;
     NXStream   *nxerr = OpenError();
     unsigned long      symref = 0;
 
-    if (!rld_lookup(nxerr, form("_%s", symbuf), &symref))
+    if (!rld_lookup(nxerr, form("_%s", symbol), &symref))
        TransferError(nxerr);
     CloseError(nxerr);
     return (void*) symref;