Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!wuarchive!usc!sdd.hp.com!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: REPOST:  Request help PERL 3.0/PL28 on SCO UNIX t/TEST fails
Message-ID: <9284@jpl-devvax.JPL.NASA.GOV>
Date: 25 Aug 90 07:20:06 GMT
References: <1990Aug25.001158.7120@ping.uucp>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 35

In article <1990Aug25.001158.7120@ping.uucp> gorpong@ping.uucp (Gordon C. Galligher) writes:
: 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.

Several possibilities.

Check for kit corruption.  Patch 19 changes the lines in eval.c which read:

        if (loop_ptr < 0)
            fatal("Bad label: %s", maxarg > 0 ? tmps : "<null>");

to

        if (loop_ptr < 0) {
            if (tmps && strEQ(tmps, "_SUB_"))
                fatal("Can't return outside a subroutine");
            fatal("Bad label: %s", maxarg > 0 ? tmps : "<null>");
        }

Look for misplaced or missing curlies.

Try compiling cmd.c with -DJMPCLOBBER.

Try compiling everything with -DDEBUGGING and then use perl -D4 to check that
label pushes and pops match.

Look around for patch reject files that you might have inadvertently
overlooked.

Send me cmd.c and eval.c and I'll tell you if they've gotten munged.

Larry