From 463ee0b2acbd047c27e8b5393cdd8398881824c5 Mon Sep 17 00:00:00 2001 From: Larry Wall Date: Wed, 10 Nov 1993 00:00:00 +0000 Subject: perl 5.0 alpha 4 [editor's note: the sparc executables have not been included, and emacs backup files have been removed. This was reconstructed from a tarball found on the September 1994 InfoMagic CD; the date of this is approximate] --- usersub.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'usersub.c') diff --git a/usersub.c b/usersub.c index 1f4569cacf..a3ae42ce05 100644 --- a/usersub.c +++ b/usersub.c @@ -85,7 +85,7 @@ VOID (*func)(); if (pipe(p) < 0) { fclose( fil ); - fatal("Can't get pipe for decrypt"); + croak("Can't get pipe for decrypt"); } /* make sure that the child doesn't get anything extra */ @@ -97,7 +97,7 @@ VOID (*func)(); close(p[0]); close(p[1]); fclose( fil ); - fatal("Can't fork for decrypt"); + croak("Can't fork for decrypt"); } sleep(5); } @@ -132,12 +132,12 @@ cryptswitch() ch = getc(rsfp); if (ch == CRYPT_MAGIC_1) { if (getc(rsfp) == CRYPT_MAGIC_2) { - if( perldb ) fatal("can't debug an encrypted script"); + if( perldb ) croak("can't debug an encrypted script"); rsfp = my_pfiopen( rsfp, cryptfilter ); preprocess = 1; /* force call to pclose when done */ } else - fatal( "bad encryption run_format" ); + croak( "bad encryption run_format" ); } else ungetc(ch,rsfp); -- cgit v1.2.1