Index: sortpages
===================================================================
RCS file: /pgpsrc/books/tools/sortpages,v
retrieving revision 1.6
retrieving revision 1.8
diff -c -r1.6 -r1.8
*** sortpages	1997/11/14 03:52:55	1.6
--- sortpages	1997/12/11 19:20:58	1.8
***************
*** 1,6 ****
  #!/usr/bin/perl
  #
! # $Id: sortpages,v 1.6 1997/11/14 03:52:55 mhw Exp $
  #
  
  @fileNameFromNumber = ();
--- 1,6 ----
  #!/usr/bin/perl
  #
! # $Id: sortpages,v 1.8 1997/12/11 19:20:58 mhw Exp $
  #
  
  @fileNameFromNumber = ();
***************
*** 15,21 ****
  	{
  		$filePos = tell(FILE);
  		$_ = <FILE>;
! 		if (/^\f?--/)
  		{
  			my ($versionHex, $flagsHex, $pageCRCHex, $tabWidthHex,
  				$productNumberHex, $fileNumberHex, $pageNumber, $name)
--- 15,21 ----
  	{
  		$filePos = tell(FILE);
  		$_ = <FILE>;
! 		if (/^\f?-\S/)
  		{
  			my ($versionHex, $flagsHex, $pageCRCHex, $tabWidthHex,
  				$productNumberHex, $fileNumberHex, $pageNumber, $name)
***************
*** 143,149 ****
  	print;
  	while (<FILE>)
  	{
! 		last if /^\f?--/;
  		print;
  	}
  
--- 143,149 ----
  	print;
  	while (<FILE>)
  	{
! 		last if /^\f?-\S/;
  		print;
  	}
  
