| # | Line 125 | Line 125 | sub print_file ($) { | |
|---|---|---|
| 125 | # Print a file without escaping HTML: - | |
| 126 | sub print_html ($) { | |
| 127 | my ($filename) = @_; | |
| 128 | < | print `cat $filename`; |
| 128 | > | print `cat $filename 2>&1`; |
| 129 | } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |