diff options
| author | Larry Wall <lwall@netlabs.com> | 1991-03-21 00:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1991-03-21 00:00:00 +0000 |
| commit | fe14fcc35f78a371a174a1d14256c2f35ae4262b (patch) | |
| tree | d472cb1055c47b9701cb0840969aacdbdbc9354a /x2p/hash.c | |
| parent | 27e2fb84680b9cc1db17238d5bf10b97626f477f (diff) | |
| download | perl-fe14fcc35f78a371a174a1d14256c2f35ae4262b.tar.gz | |
perl 4.0.00: (no release announcement available)perl-4.0.00
So far, 4.0 is still a beta test version. For the last production
version, look in pub/perl.3.0/kits@44.
Diffstat (limited to 'x2p/hash.c')
| -rw-r--r-- | x2p/hash.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/x2p/hash.c b/x2p/hash.c index a89b6511e4..fd92045bc3 100644 --- a/x2p/hash.c +++ b/x2p/hash.c @@ -1,4 +1,4 @@ -/* $Header: hash.c,v 3.0 89/10/18 15:34:50 lwall Locked $ +/* $Header: hash.c,v 4.0 91/03/20 01:57:49 lwall Locked $ * * Copyright (c) 1989, Larry Wall * @@ -6,8 +6,8 @@ * as specified in the README file that comes with the perl 3.0 kit. * * $Log: hash.c,v $ - * Revision 3.0 89/10/18 15:34:50 lwall - * 3.0 baseline + * Revision 4.0 91/03/20 01:57:49 lwall + * 4.0 baseline. * */ @@ -73,10 +73,12 @@ STR *val; continue; if (strNE(entry->hent_key,key)) /* is this it? */ continue; + /*NOSTRICT*/ safefree((char*)entry->hent_val); entry->hent_val = val; return TRUE; } + /*NOSTRICT*/ entry = (HENT*) safemalloc(sizeof(HENT)); entry->hent_key = savestr(key); |