Parent Directory
| 
Revision Log
| 
Patch
| revision 1.2 by wakaba, Sat Jul 31 07:39:00 2004 UTC | revision 1.3 by wakaba, Sat Dec 11 08:33:57 2004 UTC | |
|---|---|---|
| # | Line 16 sub c{ | Line 16 sub c{ |
| 16 | my $source = ''; | my $source = ''; |
| 17 | my $line = 1; | my $line = 1; |
| 18 | for (<$file>) { | for (<$file>) { |
| 19 | s/\x0C//g; | |
| 20 | s/\t/ /g and warn "$0: $filename\[$line]: TAB found"; | s/\t/ /g and warn "$0: $filename\[$line]: TAB found"; |
| 21 | $source .= sprintf '%3d %s', $line++, $_; | $source .= sprintf '%3d %s', $line++, $_; |
| 22 | } | } |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |