File fix-syntax-errors-with-newer-perl.patch of Package sitar

diff -ur sitar-1.0.6.old/sitar.pl sitar-1.0.6/sitar.pl
--- sitar-1.0.6.old/sitar.pl	2006-03-27 15:49:28.000000000 +0200
+++ sitar-1.0.6/sitar.pl	2014-07-29 11:45:03.000000000 +0200
@@ -1366,7 +1366,7 @@
 		siprtt( "h2", "PCI Devices" );
 		siprtttt( "tabborder", "lp{0.15\\textwidth}p{0.15\\textwidth}p{0.15\\textwidth}p{0.15\\textwidth}p{0.15\\textwidth}l", "PCI Devices", 7 );
 		siprt( "tabrow" );
-		for $TT qw ( PCI Device Class Vendor SVendor SDevice Rev ) {
+		for $TT ( qw ( PCI Device Class Vendor SVendor SDevice Rev ) ) {
 			siprtt( "tabhead", $TT );
 		}
 		siprt( "endrow" );
@@ -1396,7 +1396,7 @@
 		close LSPCI;
 		foreach $NN ( sort keys %lspcidevices_h ) {
 			siprt( "tabrow" );
-			for $TT qw ( PCI Device Class Vendor SVendor SDevice Rev ) {
+			for $TT ( qw ( PCI Device Class Vendor SVendor SDevice Rev ) ) {
 				$tt = $lspcidevices_h{ "$NN" }{ "$TT" };
 				chomp $tt;
 				if ( $tt eq "" ) {