forked from pool/sitar
cc07f0096d
- Added fix-syntax-errors-with-newer-perl.patch: fix syntax errors when run with the perl in openSUSE 13.1 and higher (boo#899992) OBS-URL: https://build.opensuse.org/request/show/254456 OBS-URL: https://build.opensuse.org/package/show/Base:System/sitar?expand=0&rev=6
22 lines
918 B
Diff
22 lines
918 B
Diff
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 "" ) {
|