gorpong@ping.uucp (Gordon C. Galligher) (08/20/90)
I am having problems executing the t/TEST file with Perl Patchlevel 28.
I am getting the error:
% ./perl TEST
Bad label: <null> at TEST line 25, <config> line 196.
Lines 21-28 are:
----------------
open(config,"../config.sh");
while (<config>) {
if (/sharpbang='(.*)'/) {
$sharpbang = ($1 eq '#!');
-----> last;
}
}
Quite a while back, when I first started Perl programming I noticed a similar
problem with a bare 'last'. I programmed around it, because I figured I was
doing something wrong. I can execute: /usr/local/bin/perl TEST and it
begins to run the tests (failing 18 of them (io.dup, etc.)). Obviously
there was something changed between PL18 and PL28 which has caused a bare
'last' to fail. Line 196 in ../config.sh is:
sharpbang=': use '
I cannot infer from this why the command is failing, but I figured it would
be important for you to know what line 196 was.
I am running:
-------------
$Header: perly.c,v 3.0.1.7 90/08/13 22:22:22 lwall Locked $
Patch level: 28
Copyright (c) 1989, 1990, Larry Wall
Perl may be copied only under the terms of the GNU General Public License,
a copy of which can be found with the Perl 3.0 distribution kit.
--------------------
on an 80386 with SCO UNIX System V.3.2.
Can anyone shed some light on this problem and how to fix it? It is getting
late (when you get up at 6:00am, 11:00pm is pretty late!) and I cannot seem
to see where the problem is.
Any help would be greatly appreciated, please reply by e-mail, and if it
is a genuine problem (and not my stupidity) then I will post a summary so
others can benefit from your wisdom. Thank you very much.
-- Gordon.
--
Gordon C. Galligher 9127 Potter Rd. #2E Des. Plaines, Ill. 60016
telxon!ping%gorpong@uunet.uu.net (not tested) (Is this even legal??)
...!uunet!telxon!ping!gorpong (tested) (And it works!)
"It seems to me, Golan, that the advance of civilization is nothing but an
exercise in the limiting of privacy." - Janov Pelorat -- _Foundation's Edge_