| 1 |
tove 10/07/29 20:15:41 |
| 2 |
|
| 3 |
Added: 91152fc1_rt54132_version081.patch |
| 4 |
Log: |
| 5 |
Initial import from perl-experimental for Mouse |
| 6 |
|
| 7 |
(Portage version: 2.2_rc67_p267/cvs/Linux x86_64) |
| 8 |
|
| 9 |
Revision Changes Path |
| 10 |
1.1 perl-core/XSLoader/files/91152fc1_rt54132_version081.patch |
| 11 |
|
| 12 |
file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/perl-core/XSLoader/files/91152fc1_rt54132_version081.patch?rev=1.1&view=markup |
| 13 |
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/perl-core/XSLoader/files/91152fc1_rt54132_version081.patch?rev=1.1&content-type=text/plain |
| 14 |
|
| 15 |
Index: 91152fc1_rt54132_version081.patch |
| 16 |
=================================================================== |
| 17 |
diff --git a/dist/XSLoader/t/XSLoader.t b/dist/XSLoader/t/XSLoader.t |
| 18 |
index 038986e..211c4d8 100644 |
| 19 |
--- a/dist/XSLoader/t/XSLoader.t |
| 20 |
+++ b/dist/XSLoader/t/XSLoader.t |
| 21 |
@@ -30,7 +30,7 @@ my %modules = ( |
| 22 |
'Time::HiRes'=> q| ::can_ok( 'Time::HiRes' => 'usleep' ) |, # 5.7.3 |
| 23 |
); |
| 24 |
|
| 25 |
-plan tests => keys(%modules) * 4 + 5; |
| 26 |
+plan tests => keys(%modules) * 3 + 5; |
| 27 |
|
| 28 |
# Try to load the module |
| 29 |
use_ok( 'XSLoader' ); |
| 30 |
@@ -65,11 +65,9 @@ for my $module (sort keys %modules) { |
| 31 |
SKIP: { |
| 32 |
skip "$module not available", 4 if $extensions !~ /\b$module\b/; |
| 33 |
|
| 34 |
- eval qq{ package $module; XSLoader::load('$module', "qunckkk"); }; |
| 35 |
- like( $@, "/^$module object version \\S+ does not match bootstrap parameter (?:qunckkk|0)/", |
| 36 |
+ eval qq{ package $module; XSLoader::load('$module', "12345678"); }; |
| 37 |
+ like( $@, "/^$module object version \\S+ does not match bootstrap parameter (?:12345678|0)/", |
| 38 |
"calling XSLoader::load() with a XS module and an incorrect version" ); |
| 39 |
- like( $warnings, "/^\$|^Version string 'qunckkk' contains invalid data; ignoring: 'qunckkk'/", |
| 40 |
- "in Perl 5.10, DynaLoader warns about the incorrect version string" ); |
| 41 |
|
| 42 |
eval qq{ package $module; XSLoader::load('$module'); }; |
| 43 |
is( $@, '', "XSLoader::load($module)"); |
Archives