From owner-svn-ports-all@FreeBSD.ORG  Sat Apr 11 15:23:36 2015
Return-Path: <owner-svn-ports-all@FreeBSD.ORG>
Delivered-To: svn-ports-all@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [8.8.178.115])
 (using TLSv1.2 with cipher AECDH-AES256-SHA (256/256 bits))
 (No client certificate requested)
 by hub.freebsd.org (Postfix) with ESMTPS id 80475789;
 Sat, 11 Apr 2015 15:23:36 +0000 (UTC)
Received: from svn.freebsd.org (svn.freebsd.org
 [IPv6:2001:1900:2254:2068::e6a:0])
 (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits))
 (Client did not present a certificate)
 by mx1.freebsd.org (Postfix) with ESMTPS id 5200674;
 Sat, 11 Apr 2015 15:23:36 +0000 (UTC)
Received: from svn.freebsd.org ([127.0.1.70])
 by svn.freebsd.org (8.14.9/8.14.9) with ESMTP id t3BFNa0n071360;
 Sat, 11 Apr 2015 15:23:36 GMT (envelope-from kwm@FreeBSD.org)
Received: (from kwm@localhost)
 by svn.freebsd.org (8.14.9/8.14.9/Submit) id t3BFNawa071359;
 Sat, 11 Apr 2015 15:23:36 GMT (envelope-from kwm@FreeBSD.org)
Message-Id: <201504111523.t3BFNawa071359@svn.freebsd.org>
X-Authentication-Warning: svn.freebsd.org: kwm set sender to kwm@FreeBSD.org
 using -f
From: Koop Mast <kwm@FreeBSD.org>
Date: Sat, 11 Apr 2015 15:23:36 +0000 (UTC)
To: ports-committers@freebsd.org, svn-ports-all@freebsd.org,
 svn-ports-head@freebsd.org
Subject: svn commit: r383808 - head/x11-toolkits/gtk20/files
X-SVN-Group: ports-head
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-BeenThere: svn-ports-all@freebsd.org
X-Mailman-Version: 2.1.18-1
Precedence: list
List-Id: SVN commit messages for the ports tree <svn-ports-all.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/options/svn-ports-all>,
 <mailto:svn-ports-all-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-ports-all/>
List-Post: <mailto:svn-ports-all@freebsd.org>
List-Help: <mailto:svn-ports-all-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-ports-all>,
 <mailto:svn-ports-all-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Sat, 11 Apr 2015 15:23:36 -0000

Author: kwm
Date: Sat Apr 11 15:23:35 2015
New Revision: 383808
URL: https://svnweb.freebsd.org/changeset/ports/383808

Log:
  Fix warnings with modern perl (5.16+) and which errors out with newest (5.21+)
  
  PR:		199380
  Submitted by:	mat@

Added:
  head/x11-toolkits/gtk20/files/patch-demos_gtk-demo_geninclude.pl.in   (contents, props changed)

Added: head/x11-toolkits/gtk20/files/patch-demos_gtk-demo_geninclude.pl.in
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/x11-toolkits/gtk20/files/patch-demos_gtk-demo_geninclude.pl.in	Sat Apr 11 15:23:35 2015	(r383808)
@@ -0,0 +1,50 @@
+--- files/patch-demos_gtk-demo_geninclude.pl.in	(revision 0)
++++ files/patch-demos_gtk-demo_geninclude.pl.in	(working copy)
+@@ -0,0 +1,47 @@ 
++--- demos/gtk-demo/geninclude.pl.in.orig	2014-09-29 20:02:16 UTC
+++++ demos/gtk-demo/geninclude.pl.in
++@@ -40,7 +40,7 @@ foreach $href (@demos) {
++ 	my $do_next = 0;
++ 
++ 	# parent detected
++-	if (defined @parents) {
+++	if (@parents) {
++ 	    foreach $foo (@parents) {
++ 		if ($foo eq $parent_name) {
++ 		    $do_next = 1;
++@@ -54,7 +54,7 @@ foreach $href (@demos) {
++ 
++ 	push @parents, $parent_name;
++ 
++-	$tmp = (defined @child_arrays)?($#child_arrays + 1):0;
+++	$tmp = (@child_arrays)?($#child_arrays + 1):0;
++ 	push @child_arrays, "child$tmp";
++ 
++ 	push @demos, {"title" => $parent_name, "file" => "NULL",
++@@ -62,7 +62,7 @@ foreach $href (@demos) {
++     }
++ }
++ 
++-if (defined @parents) {
+++if (@parents) {
++     $i = 0;
++     for ($i = 0; $i <= $#parents; $i++) {
++ 	$first = 1;
++@@ -105,7 +105,7 @@ if (defined @parents) {
++ } @demos_old;
++ 
++ # sort the child arrays
++-if (defined @child_arrays) {
+++if (@child_arrays) {
++     for ($i = 0; $i <= $#child_arrays; $i++) {
++ 	@foo_old = @{$child_arrays[$i]};
++ 
++@@ -133,7 +133,7 @@ foreach $href (@demos) {
++ 	print ", \n";
++     }
++ 
++-    if (defined @parents) {
+++    if (@parents) {
++ 	for ($i = 0; $i <= $#parents; $i++) {
++ 	    if ($parents[$i] eq $href->{title}) {
++