diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-02-07 18:05:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-02-07 18:05:13 +0000 |
| commit | bdbd2f2228a5f903eac5af514b0686141570617f (patch) | |
| tree | d69d0d2dd25cbb69594f6a6ed3bc0f9111280959 /ext | |
| parent | f27fa58d3bdcde5eed9604e8af9c14b89a02d8ab (diff) | |
| parent | 1ae175c8d48ec3f9bff4739583753d9b46939a5f (diff) | |
| download | perl-bdbd2f2228a5f903eac5af514b0686141570617f.tar.gz | |
Integrate from mainperl.
p4raw-id: //depot/cfgperl@2825
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Data/Dumper/Dumper.pm | 5 | ||||
| -rw-r--r-- | ext/SDBM_File/sdbm/sdbm.c | 1 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm index 4369664a5a..b1fd2b790a 100644 --- a/ext/Data/Dumper/Dumper.pm +++ b/ext/Data/Dumper/Dumper.pm @@ -9,7 +9,7 @@ package Data::Dumper; -$VERSION = $VERSION = '2.10'; +$VERSION = $VERSION = '2.101'; #$| = 1; @@ -326,8 +326,7 @@ sub _dump { $out .= ($name =~ /^\%/) ? ')' : '}'; } elsif ($realtype eq 'CODE') { - $out .= '"DUMMY"'; - $out = 'sub { ' . $out . ' }'; + $out .= 'sub { "DUMMY" }'; carp "Encountered CODE ref, using dummy placeholder" if $s->{purity}; } else { diff --git a/ext/SDBM_File/sdbm/sdbm.c b/ext/SDBM_File/sdbm/sdbm.c index 637fbe98a1..c147e45b43 100644 --- a/ext/SDBM_File/sdbm/sdbm.c +++ b/ext/SDBM_File/sdbm/sdbm.c @@ -437,6 +437,7 @@ setdbit(register DBM *db, register long int dbit) dirb = c / DBLKSIZ; if (dirb != db->dirbno) { + (void) memset(db->dirbuf, 0, DBLKSIZ); if (lseek(db->dirf, OFF_DIR(dirb), SEEK_SET) < 0 || read(db->dirf, db->dirbuf, DBLKSIZ) < 0) return 0; |