diff options
| author | Olaf Flebbe <o.flebbe@science-computing.de> | 2000-11-19 20:33:30 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-20 01:58:11 +0000 |
| commit | fa6a1c441b7e2c8c5e7ee1e3836a41fc8a364e89 (patch) | |
| tree | 551cec2742d1066daac417e04c5e1e00811b967e /lib/CGI.pm | |
| parent | 07d29b54c8a15c0fd1ebf8765665546568dfb928 (diff) | |
| download | perl-fa6a1c441b7e2c8c5e7ee1e3836a41fc8a364e89.tar.gz | |
[perl 7711: EPOC] updates
Message-ID: <25575.974658810@www23.gmx.net>
p4raw-id: //depot/perl@7758
Diffstat (limited to 'lib/CGI.pm')
| -rw-r--r-- | lib/CGI.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/CGI.pm b/lib/CGI.pm index fd06f64e41..e9c916f9b5 100644 --- a/lib/CGI.pm +++ b/lib/CGI.pm @@ -119,6 +119,8 @@ if ($OS=~/Win/i) { $OS = 'MACINTOSH'; } elsif ($OS=~/os2/i) { $OS = 'OS2'; +} elsif ($OS=~/epoc/) { + $OS = 'EPOC'; } else { $OS = 'UNIX'; } @@ -135,7 +137,7 @@ $AutoloadClass = $DefaultClass unless defined $CGI::AutoloadClass; # The path separator is a slash, backslash or semicolon, depending # on the paltform. $SL = { - UNIX=>'/', OS2=>'\\', WINDOWS=>'\\', DOS=>'\\', MACINTOSH=>':', VMS=>'/' + UNIX=>'/', EPOC=>'/', OS2=>'\\', WINDOWS=>'\\', DOS=>'\\', MACINTOSH=>':', VMS=>'/' }->{$OS}; # This no longer seems to be necessary @@ -3274,7 +3276,7 @@ unless ($TMPDIRECTORY) { @TEMP=("${SL}usr${SL}tmp","${SL}var${SL}tmp", "C:${SL}temp","${SL}tmp","${SL}temp", "${vol}${SL}Temporary Items", - "${SL}WWW_ROOT", "${SL}SYS\$SCRATCH"); + "${SL}WWW_ROOT", "${SL}SYS\$SCRATCH", "C:${SL}system${SL}temp"); unshift(@TEMP,$ENV{'TMPDIR'}) if exists $ENV{'TMPDIR'}; # this feature was supposed to provide per-user tmpfiles, but |