File kdebase3-kde-info2html-perlarray-defined.patch of Package kdebase3

diff -Naru kdebase-3.5.10_orig/kioslave/info/kde-info2html kdebase-3.5.10/kioslave/info/kde-info2html
--- kdebase-3.5.10_orig/kioslave/info/kde-info2html	2007-01-15 20:31:34.000000000 +0900
+++ kdebase-3.5.10/kioslave/info/kde-info2html	2019-08-21 12:07:32.091052634 +0900
@@ -151,7 +151,7 @@
 		next if $looking && !/\* Menu/;
 		$looking = 0;
 		my @item = &ParseMenuItem($_,'dir');
-		if (!defined(@item)) { next }
+		if (!@item) { next }
     		my ($MenuLinkTag, $MenuLinkFile, $MenuLinkRef, $MenuLinkText) = @item;
 		if ($MenuLinkRef eq $FileName) {
 			&Redirect($MenuLinkFile, $MenuLinkTag);
@@ -406,7 +406,7 @@
 sub MenuItem2HTML {
     my ($Line, $BaseInfoFile) = @_;
     my @parse_results = &ParseMenuItem($Line, $BaseInfoFile);
-    if (!defined (@parse_results)) { return $Line; }
+    if (!@parse_results) { return $Line; }
     my ($MenuLinkTag, $MenuLinkFile, $MenuLinkRef, $MenuLinkText) = @parse_results;
     #-- produce a HTML line
     return "<tr class=\"infomenutr\"><td class=\"infomenutd\" width=\"30%\"><ul><li><a href=\"info:/$MenuLinkFile/$MenuLinkTag\">$MenuLinkRef</a></ul></td><td class=\"infomenutd\">$MenuLinkText";