diff options
| author | fukachan <fukachan> | 2003-03-23 15:06:22 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-03-23 15:06:22 +0000 |
| commit | bf112251f43696e90733e499e7401bbeecd31d3d (patch) | |
| tree | 6a0177f7570450cfdf3b03500b82537da90bebeb /img/lib/IM/Util.pm | |
| parent | 4d22e01c81b228d4103d0407513e02cb2d155663 (diff) | |
| download | fml8-im-144.tar.gz fml8-im-144.tar.bz2 fml8-im-144.zip | |
import im-144im-144
Diffstat (limited to 'img/lib/IM/Util.pm')
| -rw-r--r-- | img/lib/IM/Util.pm | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/img/lib/IM/Util.pm b/img/lib/IM/Util.pm index 68da1a5e..90c98b89 100644 --- a/img/lib/IM/Util.pm +++ b/img/lib/IM/Util.pm @@ -5,10 +5,10 @@ ### ### Author: Internet Message Group <img@mew.org> ### Created: Apr 23, 1997 -### Revised: Dec 7, 2002 +### Revised: Mar 22, 2003 ### -my $PM_VERSION = "IM::Util.pm version 20021207(IM142)"; +my $PM_VERSION = "IM::Util.pm version 20030322(IM144)"; package IM::Util; require 5.003; @@ -48,13 +48,18 @@ $EXIT_ERROR = 1; my $osname = $^O; -if ($osname =~ /win/i) { - if (Win32::IsWinNT()) { - $OS = 'WNT'; - } elsif (Win32::IsWin95()) { - $OS = 'WIN95'; - } else { - $OS = 'WIN95'; # xxx +if ($osname =~ /win/i && $osname !~ /darwin/i) { + eval { + if (Win32::IsWinNT()) { + $OS = 'WNT'; + } elsif (Win32::IsWin95()) { + $OS = 'WIN95'; + } else { + $OS = 'WIN95'; # xxx + } + }; + if ($@) { + $OS = 'UNIX'; } } elsif ($osname =~ /os2/i) { $OS = 'OS/2'; |