Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |