[Python-checkins] CVS: python/dist/src/Doc/perl l2hinit.perl,1.54,1.55

[Fred L. Drake]

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory usw-pr-cvs1:/tmp/cvs-serv24293/perl

Modified Files:
	l2hinit.perl 
Log Message:

Remove the use of the "cat" program.  This improves portability to non-Unix
platforms.

This is part the response to SF patch #429611.


Index: l2hinit.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.54
retrieving revision 1.55
diff -C2 -d -r1.54 -r1.55
*** l2hinit.perl	2001/06/20 21:31:36	1.54
--- l2hinit.perl	2001/08/10 20:12:09	1.55
***************
*** 419,427 ****
  	}
      }
      $_ = (($INFO == 1)
            ? join('',
                   $close_all,
                   "<strong>$t_title</strong>$the_version\n",
!                  `cat $ABOUT_FILE`,
                   $open_all, $_)
            : join('', $close_all, $INFO,"\n", $open_all, $_));
--- 419,431 ----
  	}
      }
+     my $about;
+     open(ABOUT, "<$ABOUT_FILE") || die "\n$!\n";
+     sysread(ABOUT, $about, 1024*1024);
+     close(ABOUT);
      $_ = (($INFO == 1)
            ? join('',
                   $close_all,
                   "<strong>$t_title</strong>$the_version\n",
!                  $about,
                   $open_all, $_)
            : join('', $close_all, $INFO,"\n", $open_all, $_));