# | 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 |