This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix typo in NeXT dynaloader
authorChip Salzenberg <chip@perl.com>
Wed, 23 Apr 1997 18:29:12 +0000 (06:29 +1200)
committerChip Salzenberg <chip@atlantic.net>
Sat, 26 Apr 1997 12:00:00 +0000 (00:00 +1200)
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;