svn commit: r383808 - head/x11-toolkits/gtk20/files

[Koop Mast]

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}) {
++