Index: /i2c-tools/trunk/eeprom/decode-dimms.pl =================================================================== --- /i2c-tools/trunk/eeprom/decode-dimms.pl (revision 5157) +++ /i2c-tools/trunk/eeprom/decode-dimms.pl (revision 5158) @@ -338,5 +338,5 @@ } -sub printl ($$) # print a line w/ label and value +sub printl($$) # print a line w/ label and value { my ($label, $value) = @_; @@ -356,5 +356,5 @@ } -sub printl2 ($$) # print a line w/ label and value (outside a table) +sub printl2($$) # print a line w/ label and value (outside a table) { my ($label, $value) = @_; @@ -370,5 +370,5 @@ } -sub prints ($) # print seperator w/ given text +sub prints($) # print seperator w/ given text { my ($label) = @_; @@ -383,5 +383,5 @@ } -sub printh ($$) # print header w/ given text +sub printh($$) # print header w/ given text { my ($header, $sub) = @_; @@ -400,5 +400,5 @@ } -sub printc ($) # print comment +sub printc($) # print comment { my ($comment) = @_; @@ -1104,5 +1104,5 @@ # note that normal 'hexdump' format on a little-endian system byte-swaps # words, using hexdump -C is better. -sub read_hexdump ($) +sub read_hexdump($) { my $addr = 0; @@ -1149,5 +1149,6 @@ } -sub readspd64 ($$) { # reads 64 bytes from SPD-EEPROM +sub readspd64($$) # reads 64 bytes from SPD-EEPROM +{ my ($offset, $dimm_i) = @_; my @bytes; @@ -1175,5 +1176,5 @@ for (@ARGV) { - if (/^-?-h/) { + if (/^-?-h/) { print "Usage: $0 [-c] [-f [-b]] [-x file [files..]]\n", " $0 -h\n\n", @@ -1193,15 +1194,14 @@ EOF exit; - } - $opt_html = 1 if (/^-?-f/); - $opt_bodyonly = 1 if (/^-?-b/); - $opt_igncheck = 1 if (/^-?-c/); - $use_hexdump = 1 if (/^-x/); - push @dimm_list, $_ if ($use_hexdump && !/^-/); + } + $opt_html = 1 if (/^-?-f/); + $opt_bodyonly = 1 if (/^-?-b/); + $opt_igncheck = 1 if (/^-?-c/); + $use_hexdump = 1 if (/^-x/); + push @dimm_list, $_ if ($use_hexdump && !/^-/); } $opt_body = $opt_html && ! $opt_bodyonly; -if ($opt_body) -{ +if ($opt_body) { print "\n", "\n",