summaryrefslogtreecommitdiff
path: root/lib/DB.pm
diff options
context:
space:
mode:
authorchromatic <chromatic@wgz.org>2001-11-24 07:56:57 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2001-11-25 19:44:38 +0000
commitc95f170b203f0b24696b298b0782f4f4c204d444 (patch)
tree46dd80783d90d67974e6650ff0dd44547f94b199 /lib/DB.pm
parent6e22d04617c44509b8a480505826f9b13b2f0dd6 (diff)
downloadperl-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.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/DB.pm b/lib/DB.pm
index 711acc085d..96e436b7e0 100644
--- a/lib/DB.pm
+++ b/lib/DB.pm
@@ -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;
}