From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 18 May 2006 15:43:25 +0000 (+0000)
Subject: Nits in the DynaLoader test: make it warning-clean,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69c6e315c98d99868530e196742fac905986d491;p=p5sagit%2Fp5-mst-13.2.git

Nits in the DynaLoader test: make it warning-clean,
and avoid checking OS- and locale-specific messages

p4raw-id: //depot/perl@28227
---

diff --git a/ext/DynaLoader/t/DynaLoader.t b/ext/DynaLoader/t/DynaLoader.t
index bc96fab..ad8dc45 100644
--- a/ext/DynaLoader/t/DynaLoader.t
+++ b/ext/DynaLoader/t/DynaLoader.t
@@ -61,12 +61,12 @@ eval { DynaLoader::dl_load_file() };
 like( $@, q{/^Usage: DynaLoader::dl_load_file\(filename, flags=0\)/},
         "calling DynaLoader::dl_load_file() with no argument" );
 
-eval { DynaLoader::dl_load_file(undef) };
+eval { no warnings 'uninitialized'; DynaLoader::dl_load_file(undef) };
 is( $@, '', "calling DynaLoader::dl_load_file() with undefined argument" );     # is this expected ?
 
 eval { DynaLoader::dl_load_file("egg_bacon_sausage_and_spam") };
 is( $@, '', "calling DynaLoader::dl_load_file() with undefined argument" );
-like( DynaLoader::dl_error(), q{/^egg_bacon_sausage_and_spam: cannot open shared object file:/}, 
+like( DynaLoader::dl_error(), q{/egg_bacon_sausage_and_spam/}, 
         "calling DynaLoader::dl_load_file() with a package without binary object" );
 
 # ... dl_findfile()