Fix with Perl 5.21.1+

With hat:	perl@
Sponsored by:	Absolight

1 files changed, 47 insertions, 0 deletions

diff --git a/databases/libgda4/files/patch-libgda-ui_demos_geninclude.pl.in b/databases/libgda4/files/patch-libgda-ui_demos_geninclude.pl.in
new file mode 100644
index 000000000000..ec71d8b2241b
--- /dev/null
+++ b/databases/libgda4/files/patch-libgda-ui_demos_geninclude.pl.in
@@ -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}) {
+