From: Simon Elliott <simon@browsing.co.uk>
Date: Fri, 20 May 2011 10:21:16 +0000 (+0100)
Subject: add DESTROY methods to placate perl >= 5.13.1
X-Git-Tag: release_0.009006~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=268f2c3599c9e7bd07e0d2087926bb160d86f82e;p=catagits%2FHTML-Zoom.git

add DESTROY methods to placate perl >= 5.13.1
---

diff --git a/Changes b/Changes
index 191d465..737fed2 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+0.009006
+  - Add DESTROY method to fix test failures / warnings in perl >= 5.13.1
+
 0.009005 2011-05-12
 
   - Perforce escaping of meta-characters in selectors and test (rafl)
diff --git a/lib/HTML/Zoom.pm b/lib/HTML/Zoom.pm
index baeec15..63774b3 100644
--- a/lib/HTML/Zoom.pm
+++ b/lib/HTML/Zoom.pm
@@ -162,6 +162,8 @@ sub AUTOLOAD {
   }
 }
 
+sub DESTROY {}
+
 1;
 
 =head1 NAME
diff --git a/lib/HTML/Zoom/StreamBase.pm b/lib/HTML/Zoom/StreamBase.pm
index 8fa8d53..83a7357 100644
--- a/lib/HTML/Zoom/StreamBase.pm
+++ b/lib/HTML/Zoom/StreamBase.pm
@@ -105,4 +105,6 @@ sub AUTOLOAD {
   return $self = $self->select($selector)->$meth(@args);
 }
 
+sub DESTROY {}
+  
 1;