add DESTROY methods to placate perl >= 5.13.1

[catagits/HTML-Zoom.git] / lib / HTML / Zoom / StreamBase.pm

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;