Date: Sat, 11 Apr 2015 15:23:36 +0000 (UTC) From: Koop Mast <kwm@FreeBSD.org> To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r383808 - head/x11-toolkits/gtk20/files Message-ID: <201504111523.t3BFNawa071359@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
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}) { ++
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201504111523.t3BFNawa071359>