Description: Port to Perl 5.20
 Devel::Peek in Perl 5.20 no longer exports SvREFCNT_inc.  Put a copy in
 QtGui4::_internal instead.
Author: Colin Watson <cjwatson@debian.org>
Forwarded: yes
Last-Update: 2014-10-31

Index: b/qtgui/lib/QtGui4.pm
===================================================================
--- a/qtgui/lib/QtGui4.pm
+++ b/qtgui/lib/QtGui4.pm
@@ -22,7 +22,6 @@
 
 use QtCore4;
 use base qw(Qt::_internal);
-use Devel::Peek qw( SvREFCNT_inc );
 
 sub init {
     @Qt::_internal::vectorTypes{qw(Qt::Polygon Qt::PolygonF Qt::ItemSelection)}
@@ -76,7 +75,7 @@
 }
 
 sub Qt::UndoCommand::ON_DESTROY {
-    Devel::Peek::SvREFCNT_inc( Qt::this() );
+    QtGui4::_internal->SvREFCNT_inc( Qt::this() );
     # XXX is there a better solution here?
     return 1;
 }
Index: b/qtgui/src/QtGui4.xs
===================================================================
--- a/qtgui/src/QtGui4.xs
+++ b/qtgui/src/QtGui4.xs
@@ -93,6 +93,13 @@
     OUTPUT:
         RETVAL
 
+SV*
+SvREFCNT_inc(sv)
+        SV* sv
+    PPCODE:
+        RETVAL = SvREFCNT_inc(sv); 
+        PUSHs(RETVAL);
+
 #// The build system with cmake and mingw relies on the visibility being set for
 #// a dll to export that symbol.  So we need to redefine XSPROTO so that we can
 #// export the boot method.