diff options
| author | kwm <kwm@FreeBSD.org> | 2015-04-11 23:23:35 +0800 |
|---|---|---|
| committer | kwm <kwm@FreeBSD.org> | 2015-04-11 23:23:35 +0800 |
| commit | 6865d7a28832d50bd63fba83e8a205203ba59dbb (patch) | |
| tree | a27a25843f738b357e8ebdb7bf1403a7884f6fe9 /x11-toolkits | |
| parent | 1d7a7488096979b184844d3975492c3996ecc8ef (diff) | |
| download | freebsd-ports-gnome-6865d7a28832d50bd63fba83e8a205203ba59dbb.tar.gz freebsd-ports-gnome-6865d7a28832d50bd63fba83e8a205203ba59dbb.tar.zst freebsd-ports-gnome-6865d7a28832d50bd63fba83e8a205203ba59dbb.zip | |
Fix warnings with modern perl (5.16+) and which errors out with newest (5.21+)
PR: 199380
Submitted by: mat@
Diffstat (limited to 'x11-toolkits')
| -rw-r--r-- | x11-toolkits/gtk20/files/patch-demos_gtk-demo_geninclude.pl.in | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/x11-toolkits/gtk20/files/patch-demos_gtk-demo_geninclude.pl.in b/x11-toolkits/gtk20/files/patch-demos_gtk-demo_geninclude.pl.in new file mode 100644 index 000000000000..6e9e7e4640c3 --- /dev/null +++ b/x11-toolkits/gtk20/files/patch-demos_gtk-demo_geninclude.pl.in @@ -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}) { ++ |