Subject: | [PATCH] win32/strawberry perl compatibility |
Date: | Sun, 10 May 2009 22:27:01 +0200 |
To: | bug-Class-Throwable [...] rt.cpan.org |
From: | kmx <kmx [...] volny.cz> |
diff -u Class-Throwable-0.10/t/10_Class_Throwable_test.t Class-Throwable-0.10_01/t/10_Class_Throwable_test.t
--- Class-Throwable-0.10/t/10_Class_Throwable_test.t 2004-12-12 16:44:18.000000000 +0100
+++ Class-Throwable-0.10_01/t/10_Class_Throwable_test.t 2009-05-10 10:30:54.359375000 +0200
@@ -10,7 +10,7 @@
}
my $path_seperator = "/";
-$path_seperator = "\\" if $^O eq 'MSWin32';
+# MSWin32 perl works fine with "/"
$path_seperator = ":" if $^O eq 'MacOS';
can_ok("Class::Throwable", 'throw');
diff -u Class-Throwable-0.10/t/20_Class_Throwable_subException_test.t Class-Throwable-0.10_01/t/20_Class_Throwable_subException_test.t
--- Class-Throwable-0.10/t/20_Class_Throwable_subException_test.t 2004-12-12 16:44:18.000000000 +0100
+++ Class-Throwable-0.10_01/t/20_Class_Throwable_subException_test.t 2009-05-10 10:30:51.125000000 +0200
@@ -10,7 +10,7 @@
}
my $path_seperator = "/";
-$path_seperator = "\\" if $^O eq 'MSWin32';
+# MSWin32 perl works fine with "/"
$path_seperator = ":" if $^O eq 'MacOS';
eval {
diff -u Class-Throwable-0.10/t/35_Class_Throwable_sub_class_test.t Class-Throwable-0.10_01/t/35_Class_Throwable_sub_class_test.t
--- Class-Throwable-0.10/t/35_Class_Throwable_sub_class_test.t 2004-12-12 16:44:18.000000000 +0100
+++ Class-Throwable-0.10_01/t/35_Class_Throwable_sub_class_test.t 2009-05-10 10:30:47.375000000 +0200
@@ -12,7 +12,7 @@
}
my $path_seperator = "/";
-$path_seperator = "\\" if $^O eq 'MSWin32';
+# MSWin32 perl works fine with "/"
$path_seperator = ":" if $^O eq 'MacOS';
eval {
Message body not shown because it is not plain text.
Hi,
please find enclosed simple patch against Class::Throwable v0.10 (as
well as the whole patched package). The patch changes just the following
test files:
- 10_Class_Throwable_test.t
- 20_Class_Throwable_subException_test.t
- 35_Class_Throwable_sub_class_test.t
I have tested it with win32/strawberry perl 5.8.9 and 5.10.0 - in both
cases all tests pass. The patch absolutely does not affect any non-Win32
platform.
By applying this patch you can close:
- http://rt.cpan.org/Public/Bug/Display.html?id=36835
- http://rt.cpan.org/Public/Bug/Display.html?id=28020
--
kmx