diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2005-01-07 20:00:22 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2005-01-07 20:00:22 +0000 |
| commit | 405f49e9f6c19686899d8f2e5ae05faf929fd643 (patch) | |
| tree | bdf942d015a6d7c66c688038367779eb17919c22 /modules/StringProcessor.pm | |
| parent | 1afe3b01a813fbe0a6dc482076cfc812891fd137 (diff) | |
| download | MPC-405f49e9f6c19686899d8f2e5ae05faf929fd643.tar.gz | |
ChangeLogTag: Fri Jan 7 13:59:31 2005 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/StringProcessor.pm')
| -rw-r--r-- | modules/StringProcessor.pm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/modules/StringProcessor.pm b/modules/StringProcessor.pm index c24b3c75..2b1047fc 100644 --- a/modules/StringProcessor.pm +++ b/modules/StringProcessor.pm @@ -83,4 +83,22 @@ sub create_array { } +sub crlf { + #my($self) = shift; + return "\n"; +} + + +sub windows_crlf { + #my($self) = shift; + if ($^O eq 'MSWin32' || $^O eq 'os2' || + ($^O eq 'cygwin' && + ($] < 5.008 || (defined $ENV{PERLIO} && $ENV{PERLIO} eq 'crlf')))) { + return "\n"; + } + else { + return "\r\n"; + } +} + 1; |