Allow several arguments to display().

[p5sagit/p5-mst-13.2.git] / lib / DB.pm

diff --git a/lib/DB.pm b/lib/DB.pm
index 711acc0..96e436b 100644 (file)
--- 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;
   }