Date: Mon, 20 Apr 2015 12:55:41 +0000 (UTC) From: Mathieu Arnold <mat@FreeBSD.org> To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r384357 - head/databases/libgda4/files Message-ID: <201504201255.t3KCtfkq058910@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: mat Date: Mon Apr 20 12:55:40 2015 New Revision: 384357 URL: https://svnweb.freebsd.org/changeset/ports/384357 Log: Fix with Perl 5.21.1+ With hat: perl@ Sponsored by: Absolight Added: head/databases/libgda4/files/patch-libgda-ui_demos_geninclude.pl.in (contents, props changed) Added: head/databases/libgda4/files/patch-libgda-ui_demos_geninclude.pl.in ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ head/databases/libgda4/files/patch-libgda-ui_demos_geninclude.pl.in Mon Apr 20 12:55:40 2015 (r384357) @@ -0,0 +1,47 @@ +--- libgda-ui/demos/geninclude.pl.in.orig 2011-11-14 20:48:57 UTC ++++ libgda-ui/demos/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?201504201255.t3KCtfkq058910>