[pkgsrc/trunk]: pkgsrc/x11/p5-gtk Fix build with perl-5.16.

[wiz <wiz%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/10238d682542
branches:  trunk
changeset: 610002:10238d682542
user:      wiz <wiz%pkgsrc.org@localhost>
date:      Mon Oct 15 12:58:33 2012 +0000

description:
Fix build with perl-5.16.

diffstat:

 x11/p5-gtk/distinfo                       |   3 ++-
 x11/p5-gtk/patches/patch-gtk-0.99.typemap |  31 +++++++++++++++++++++++++++++++
 2 files changed, 33 insertions(+), 1 deletions(-)

diffs (48 lines):

diff -r caef35232380 -r 10238d682542 x11/p5-gtk/distinfo
--- a/x11/p5-gtk/distinfo       Mon Oct 15 12:45:25 2012 +0000
+++ b/x11/p5-gtk/distinfo       Mon Oct 15 12:58:33 2012 +0000
@@ -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 -r caef35232380 -r 10238d682542 x11/p5-gtk/patches/patch-gtk-0.99.typemap
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/x11/p5-gtk/patches/patch-gtk-0.99.typemap Mon Oct 15 12:58:33 2012 +0000
@@ -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
+