Change 34403 by [EMAIL PROTECTED] on 2008/09/23 09:24:34
Subject: [PATCH 5.8.x] Skip t/op/alarm.t on 2003 and Vista
From: "Jan Dubois" <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Mon, 22 Sep 2008 18:15:04 -0700
Affected files ...
... //depot/maint-5.8/perl/t/op/alarm.t#3 edit
Differences ...
==== //depot/maint-5.8/perl/t/op/alarm.t#3 (text) ====
Index: perl/t/op/alarm.t
--- perl/t/op/alarm.t#2~23934~ 2005-02-05 06:32:42.000000000 -0800
+++ perl/t/op/alarm.t 2008-09-23 02:24:34.000000000 -0700
@@ -11,6 +11,17 @@
if( !$Config{d_alarm} ) {
skip_all("alarm() not implemented on this platform");
}
+ if ($^O eq "MSWin32") {
+ require Win32;
+ my(undef,$major,$minor,undef,$id) = Win32::GetOSVersion();
+ if ($id == 2 && (($major == 5 && $minor == 2) || $major >= 6)) {
+ # alarm() in 5.8.x is broken on Windows 2003 Server and Vista
+ # The problem is fixed by change 26379, but cannot be integrated
+ # into 5.8.x because it includes structure layout changes
+ # http://public.activestate.com/cgi-bin/perlbrowse/p/26379
+ skip_all("alarm() known to be broken on this platform");
+ }
+ }
}
plan tests => 5;
End of Patch.
