Quote:
> I am having problems running a Perl script written by Mark Stantz called
> aub (version 2.05). I am trying to run it using Perl 5.0 on a
> SparcStation 5 running Solaris 2.3.
Running `perl -cw aub` actually found most of the problems. Here's
the patch for it to work on Irix-5.x, probably the same patch would
work on Solaris (BTW, could any of these be bugs in perl5?):
*** /usr/local/bin/aub.~1~ Thu Jul 7 18:35:37 1994
--- /usr/local/bin/aub Mon Nov 28 21:50:40 1994
***************
*** 206,212 ****
print " for sys/socket.ph...\n";
}
! &need_to_run_h2ph unless (eval("require <sys/socket.ph>"));
print "Using NNTP-based news access; server is $server\n"
if ($opt_d);
--- 206,212 ----
print " for sys/socket.ph...\n";
}
! &need_to_run_h2ph unless (eval("require 'sys/socket.ph'"));
print "Using NNTP-based news access; server is $server\n"
if ($opt_d);
***************
*** 2463,2470 ****
Mark Stantz
8/92
EOF
--- 2463,2470 ----
Mark Stantz
8/92
EOF
***************
*** 2482,2488 ****
# This has some (not much) value as a debugging aid.
#
if (open(DECODE, ">&STDOUT"));
}
--- 2482,2488 ----
# This has some (not much) value as a debugging aid.
#
if (open(DECODE, ">&STDOUT"));
}
--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Networking Services, / GIGO *really* means: Garbage in, Gospel Out
Silicon Graphics, Inc /
<a href="http://reality.sgi.com/employees/scotth/">non-virtual home page</a>