fix to print contents again

This commit is contained in:
Eric House 2012-10-22 19:19:38 -07:00
parent 8e911fef05
commit 8f4c0169b4

View file

@ -1,6 +1,6 @@
#!/usr/bin/perl -C #!/usr/bin/perl
# #
# Copyright 2004 - 2009 by Eric House (xwords@eehouse.org) # Copyright 2004 - 2012 by Eric House (xwords@eehouse.org)
# #
# This program is free software; you can redistribute it and/or # This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License # modify it under the terms of the GNU General Public License
@ -261,6 +261,7 @@ sub prepXWD($$$$) {
} elsif( $gDescOnly ) { } elsif( $gDescOnly ) {
print STDOUT $gDesc, "\n"; print STDOUT $gDesc, "\n";
} else { } else {
$done = 0;
printf STDERR "at 0x%x before header read\n", systell($fh); printf STDERR "at 0x%x before header read\n", systell($fh);
# skip xloc header # skip xloc header
$nRead = sysread( $fh, $buf, 2 ); $nRead = sysread( $fh, $buf, 2 );