Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!uunet!telxon!ping!gorpong
From: gorpong@ping.uucp (Gordon C. Galligher)
Newsgroups: comp.lang.perl
Subject: REPOST:  Request help PERL 3.0/PL28 on SCO UNIX t/TEST fails
Message-ID: <1990Aug25.001158.7120@ping.uucp>
Date: 25 Aug 90 00:11:58 GMT
Followup-To: comp.lang.perl
Organization: The 23rd. Century
Lines: 58

As the subject suggests, this is a repost of my earlier question.  I have
received no responses to it, and I still need help.  Since my request to 
send me e-mail failed, would you kindly post the thoughts/results/etc.
any of you might have?  I attempted to keep the bandwidth down, but it did
not seem to have any effect.

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ORIGINAL ARTICLE-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
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, which is
PERL 3.0/PL18 and it begins to run the tests.  Obviously there was something 
changed between PL18 and PL28 which has caused a bare 'last' to fail (at 
least on an SCO UNIX system).  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.

My thanks to anyone who can help me!

                -- 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_