svn commit: r384357 - head/databases/libgda4/files

[Mathieu Arnold]

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