replace calls to non-existant bail() subroutine with calls to

the die() builtin function.
This commit is contained in:
Alfred Perlstein 2001-03-23 11:48:50 +00:00
parent 7a66a36d2a
commit ec4dff5e50
2 changed files with 4 additions and 4 deletions

View File

@ -195,12 +195,12 @@ line: while (<SRC>) {
# kill trailing ; # kill trailing ;
if ($ln !~ s/;$//) { if ($ln !~ s/;$//) {
&bail("Missing end-of-line ; in \"$ln\"."); die("Missing end-of-line ; in \"$ln\".");
} }
# pick off variable name # pick off variable name
if ($ln !~ s/([A-Za-z0-9_]+)$//) { if ($ln !~ s/([A-Za-z0-9_]+)$//) {
&bail("Missing var name \"a_foo\" in \"$ln\"."); die("Missing var name \"a_foo\" in \"$ln\".");
} }
my $arg = $1; my $arg = $1;

View File

@ -195,12 +195,12 @@ line: while (<SRC>) {
# kill trailing ; # kill trailing ;
if ($ln !~ s/;$//) { if ($ln !~ s/;$//) {
&bail("Missing end-of-line ; in \"$ln\"."); die("Missing end-of-line ; in \"$ln\".");
} }
# pick off variable name # pick off variable name
if ($ln !~ s/([A-Za-z0-9_]+)$//) { if ($ln !~ s/([A-Za-z0-9_]+)$//) {
&bail("Missing var name \"a_foo\" in \"$ln\"."); die("Missing var name \"a_foo\" in \"$ln\".");
} }
my $arg = $1; my $arg = $1;