$OpenBSD: patch-lib_XML_Stream_Parser_pm,v 1.1 2011/04/01 07:08:04 jasper Exp $

Bug #56574 for XML-Stream: Test suite under perl 5.12 produces warnings
https://rt.cpan.org/Public/Bug/Display.html?id=56574

--- lib/XML/Stream/Parser.pm.orig	Thu Mar 31 13:16:59 2011
+++ lib/XML/Stream/Parser.pm	Thu Mar 31 13:21:14 2011
@@ -63,9 +63,11 @@ use XML::Stream::Node;
 
 sub new
 {
+    my $class = shift;
+
     my $self = { };
 
-    bless($self);
+    bless($self, $class);
 
     my %args;
     while($#_ >= 0) { $args{ lc pop(@_) } = pop(@_); }
