Ticket #647: x.patch

(a) a vs. (b) b

@@ -1 @@
-my %subrefs; 
-         
-use Data::Dumper; 
-sub add_valuerangeprocessor { 
-  my ($self, $vrp) = @_; 
-  push @{$subrefs{$$self}}, $vrp; # keep a reference 
-  $self->add_valuerangeprocessor0($vrp); 
-} 
- 
-sub set_stopper { 
-  my ($self, $stopper) = @_; 
-  push @{$subrefs{$$self}}, $stopper; # keep a reference 
-  $self->set_stopper0($stopper); 
-} 
- 
-sub _delete_subrefs { delete $subrefs{${$_[0]}} } 
+my (%vrps,%stoppers);
+
+sub add_valuerangeprocessor {
+  my ($self, $vrp) = @_;
+  push @{$vrps{$$self}}, $vrp; # keep a reference
+  $self->add_valuerangeprocessor0($vrp);
+}
+
+sub set_stopper {
+  my ($self, $stopper) = @_;
+  $stoppers{$$self} = $stopper; # keep a reference
+  $self->set_stopper0($stopper);
+}
+
+sub _delete_subrefs { 
+  delete $vrps{${$_[0]}};
+  delete $stoppers{${$_[0]}};