diff options
| author | steve <steve@FreeBSD.org> | 1998-02-01 22:04:49 +0000 |
|---|---|---|
| committer | steve <steve@FreeBSD.org> | 1998-02-01 22:04:49 +0000 |
| commit | fc4ac04352a8aedf89defcc58103275f5ec0aca0 (patch) | |
| tree | 6c9617135dc97acaad7fa917e8eca29d76ce5a16 /gnu | |
| parent | 40bd32273dfb2aa122b700eac5969ff75129b335 (diff) | |
| download | FreeBSD-src-fc4ac04352a8aedf89defcc58103275f5ec0aca0.zip FreeBSD-src-fc4ac04352a8aedf89defcc58103275f5ec0aca0.tar.gz | |
setpwent and endpwent have a return type of void, so change this
to work like newer versions of perl.
Reviewed by: Bruce Evans
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/usr.bin/perl/perl/eval.c | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/gnu/usr.bin/perl/perl/eval.c b/gnu/usr.bin/perl/perl/eval.c index 40155f5..fcb5403 100644 --- a/gnu/usr.bin/perl/perl/eval.c +++ b/gnu/usr.bin/perl/perl/eval.c @@ -1,4 +1,4 @@ -/* $RCSfile: eval.c,v $$Revision: 1.1.1.1 $$Date: 1994/09/10 06:27:32 $ +/* $RCSfile: eval.c,v $$Revision: 1.2 $$Date: 1995/05/30 05:03:03 $ * * Copyright (c) 1991, Larry Wall * @@ -6,6 +6,9 @@ * License or the Artistic License, as specified in the README file. * * $Log: eval.c,v $ + * Revision 1.2 1995/05/30 05:03:03 rgrimes + * Remove trailing whitespace. + * * Revision 1.1.1.1 1994/09/10 06:27:32 gclarkii * Initial import of Perl 4.046 bmaked * @@ -2927,11 +2930,11 @@ donumset: gimme,arglast); goto array_return; case O_SPWENT: - value = (double) setpwent(); - goto donumset; + setpwent(); + goto say_yes; case O_EPWENT: - value = (double) endpwent(); - goto donumset; + endpwent(); + goto say_yes; #else case O_EPWENT: case O_SPWENT: |
