/[mdap]/bin/fw-info.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /bin/fw-info.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 15 by dpavlin, Sun Apr 22 15:30:47 2007 UTC revision 16 by dpavlin, Mon Apr 23 17:41:34 2007 UTC
# Line 13  open(my $fh, $path) || die "Can't open $ Line 13  open(my $fh, $path) || die "Can't open $
13  my $ver;  my $ver;
14  seek($fh, 32, 0) || die "can't seek to 32: $!";  seek($fh, 32, 0) || die "can't seek to 32: $!";
15  read($fh, $ver, 4);  read($fh, $ver, 4);
16  print dump( $ver ), dump( unpack 'CCCC', $ver ),$/;  print join('.',unpack('CCCC', $ver)),"\t$path\n";
17    
Legend:
Removed from v.15  
changed lines
  Added in v.16
  ViewVC Help
Powered by ViewVC 1.1.26