From ed39926a77066179afaa4ea4a429a11ab8ed73cc Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 22 Mar 2012 13:10:08 -0700
Subject: [PATCH]  delete the R object

---
 sweavealike.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/sweavealike.pm b/sweavealike.pm
index f802fa5..96bb556 100644
--- a/sweavealike.pm
+++ b/sweavealike.pm
@@ -209,6 +209,7 @@ sub savestate {
 		and $pagestate{$page}{$id}{R}->is_started()) {
 		$pagestate{$page}{$id}{R}->stop;
 	    }
+	    delete $pagestate{$page}{$id}{R};
 	}
 	if (exists $pagestate{$page}{$id}{fignum}) {
 	    delete $pagestate{$page}{$id}{fignum}
-- 
2.39.2