MS-DOS patches to perl. Apply this patch to the standard perl source, version 4, patch level 19, using "patch -p." Do this in the root directory of the perl source distribution. You can cat all these patches together and pipe the output to patch -p. Len Reed Holos Software, Inc. ..!gatech!holos0!lbr holos0!lbr@gatech.edu -------------------------------------- *** msdos/eg/nohigh.bat.old Sun Feb 23 08:48:16 1992 --- msdos/eg/nohigh.bat Thu Nov 14 08:57:24 1991 *************** *** 0 **** --- 1,24 ---- + @REM=(" + @perl -p %0.bat %1 %2 %3 %4 %5 %6 %7 %8 %9 + @end ") if 0 ; + + # Usage: invoke with -p switch + + # Strip highlighting from a formatted manual, for those who + # can't deal with the highlighting. + + # Nroff puts in hightlighting as follows: + # Boldface is cBcBc for each bold c + # Underlining is _Bc for each underlined c. + # where B is a backspace. In perl, as in C, a backspace is Ascii \010. + + # We simply strip every character preceding a backspace and the backspace. + # Reads from file list (or STDIN) and writes to STDOUT. + # (Or can invoke with -i for edit-in-place.) + # + # By Len Reed. + + s/.\010//g; + + @REM=(qq! + :end !) if 0 ;