1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
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.
|
