diff options
author | chromatic <chromatic@wgz.org> | 2001-11-24 07:56:57 -0700 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-25 19:44:38 +0000 |
commit | c95f170b203f0b24696b298b0782f4f4c204d444 (patch) | |
tree | 46dd80783d90d67974e6650ff0dd44547f94b199 /lib/DB.pm | |
parent | 6e22d04617c44509b8a480505826f9b13b2f0dd6 (diff) | |
download | perl-c95f170b203f0b24696b298b0782f4f4c204d444.tar.gz |
[REPATCH lib/DB.pm MANIFEST lib/DB.t] Rework DB.pm tests
Message-ID: <20011124220430.97697.qmail@onion.perl.org>
plus a tweak for ithreads builds.
p4raw-id: //depot/perl@13268
Diffstat (limited to 'lib/DB.pm')
-rw-r--r-- | lib/DB.pm | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -406,8 +406,7 @@ sub _find_subline { $name = "main" . $name if substr($name,0,2) eq "::"; my($fname, $from, $to) = ($DB::sub{$name} =~ /^(.*):(\d+)-(\d+)$/); if ($from) { - # XXX this needs local()-ization of some sort - *DB::dbline = "::_<$fname"; + local *DB::dbline = "::_<$fname"; ++$from while $DB::dbline[$from] == 0 && $from < $to; return $from; } |