diff options
author | jcej <jcej@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-08-01 22:19:49 +0000 |
---|---|---|
committer | jcej <jcej@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-08-01 22:19:49 +0000 |
commit | 79e236268127012abf6530b7eae8f4e82b30548e (patch) | |
tree | ec9fd7d453b02b55aaae6b3938f9eddfd0833158 /docs/tutorials/colorize | |
parent | 3d117343662c89e02ac394f3554a9a05ffecdea0 (diff) | |
download | ATCD-79e236268127012abf6530b7eae8f4e82b30548e.tar.gz |
*** empty log message ***
Diffstat (limited to 'docs/tutorials/colorize')
-rwxr-xr-x | docs/tutorials/colorize | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/docs/tutorials/colorize b/docs/tutorials/colorize index 60ffaae1348..ee61d4bfb14 100755 --- a/docs/tutorials/colorize +++ b/docs/tutorials/colorize @@ -2,6 +2,7 @@ eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; +print "<PRE>\n"; while( <STDIN> ) { s/</\</g; @@ -14,5 +15,6 @@ while( <STDIN> ) s,\w+::\~?\w+,<font color=\#008888>$&</font>,; print STDOUT $_; } +print "</PRE>\n"; 0; |