diff options
author | wiz <wiz@pkgsrc.org> | 2012-10-15 12:58:33 +0000 |
---|---|---|
committer | wiz <wiz@pkgsrc.org> | 2012-10-15 12:58:33 +0000 |
commit | c445655a11a88abd567d7dd166f988836096f0d7 (patch) | |
tree | c5a835e09b519516f3e7dcdcd5f4b24df7298209 /x11 | |
parent | 3c0baff922659c0683af0f868c7bde3bc03dfb11 (diff) | |
download | pkgsrc-c445655a11a88abd567d7dd166f988836096f0d7.tar.gz |
Fix build with perl-5.16.
Diffstat (limited to 'x11')
-rw-r--r-- | x11/p5-gtk/distinfo | 3 | ||||
-rw-r--r-- | x11/p5-gtk/patches/patch-gtk-0.99.typemap | 31 |
2 files changed, 33 insertions, 1 deletions
diff --git a/x11/p5-gtk/distinfo b/x11/p5-gtk/distinfo index 1618f84db1a..414c808dca3 100644 --- a/x11/p5-gtk/distinfo +++ b/x11/p5-gtk/distinfo @@ -1,7 +1,8 @@ -$NetBSD: distinfo,v 1.7 2006/11/08 13:40:33 obache Exp $ +$NetBSD: distinfo,v 1.8 2012/10/15 12:58:33 wiz Exp $ SHA1 (Gtk-Perl-0.7009.tar.gz) = a48680c4db2aef82247061265784383df320c221 RMD160 (Gtk-Perl-0.7009.tar.gz) = 98449575c3e3a605d324c878cc5dee504cb7d0b6 Size (Gtk-Perl-0.7009.tar.gz) = 447432 bytes SHA1 (patch-aa) = c15288af428dde6c97996c5f8e2904107062dca8 SHA1 (patch-ab) = 9aa6b2ef31267a4da557bf7c9bc1136de8097e0a +SHA1 (patch-gtk-0.99.typemap) = 14d8bea23d19369b1e2d85d21f52351fec1c4357 diff --git a/x11/p5-gtk/patches/patch-gtk-0.99.typemap b/x11/p5-gtk/patches/patch-gtk-0.99.typemap new file mode 100644 index 00000000000..d70d00e4e07 --- /dev/null +++ b/x11/p5-gtk/patches/patch-gtk-0.99.typemap @@ -0,0 +1,31 @@ +$NetBSD: patch-gtk-0.99.typemap,v 1.1 2012/10/15 12:58:33 wiz Exp $ + +--- gtk-0.99.typemap.orig 2001-05-07 10:13:45.000000000 +0000 ++++ gtk-0.99.typemap +@@ -62,7 +62,7 @@ T_GtkPTROBJ + } while(0) + + T_GtkPTROBJOrNULL +- $var = SvTRUE($arg) ? Cast$type(SvGtkObjectRef($arg, \"" . ($foo=$ntype,$foo=~s/_OrNULL//,$foo). "\")) : 0 ++ $var = SvTRUE($arg) ? Cast$type(SvGtkObjectRef($arg, \"" . (our $foo=$ntype,$foo=~s/_OrNULL//,$foo). "\")) : 0 + + T_GtkPTROBJUp + $var = Cast$type(SvGtkObjectRef($arg, \"${ntype}\")) +@@ -95,14 +95,14 @@ T_SimpleVal + do { + if (!$arg || !SvOK($arg)) + croak(\"$var is not of type ${ntype}\"); +- $var = Sv" . ($foo=$ntype, $foo=~s/://g, $foo=~s/^GtkGdk/Gdk/, $foo) . "($arg); ++ $var = Sv" . (our $foo=$ntype, $foo=~s/://g, $foo=~s/^GtkGdk/Gdk/, $foo) . "($arg); + } while (0) + + T_SimpleValOrNULL +- $var = ($arg && SvOK($arg)) ? Sv" . ($foo=$ntype, $foo=~s/://g, $foo=~s/^GtkGdk/Gdk/, $foo=~s/_OrNULL$//, $foo) . "($arg) : 0 ++ $var = ($arg && SvOK($arg)) ? Sv" . (our $foo=$ntype, $foo=~s/://g, $foo=~s/^GtkGdk/Gdk/, $foo=~s/_OrNULL$//, $foo) . "($arg) : 0 + + T_SimplePtr +- $var = Sv" . ($foo=$ntype, $foo=~s/://g, $foo=~s/^GtkGdk/Gdk/, $foo) . "($arg,0) ++ $var = Sv" . (our $foo=$ntype, $foo=~s/://g, $foo=~s/^GtkGdk/Gdk/, $foo) . "($arg,0) + + OUTPUT + |