add DESTROY methods to placate perl >= 5.13.1

diff --git a/Changes b/Changes
index 191d465..737fed2 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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;