diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-18 15:43:25 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-18 15:43:25 +0000 |
| commit | 69c6e315c98d99868530e196742fac905986d491 (patch) | |
| tree | 122316af37dd7b15f2f903727685501bedf9c71a /ext/DynaLoader | |
| parent | 51254d33a14eeacb273f244a97f13b86d9e56aa2 (diff) | |
| download | perl-69c6e315c98d99868530e196742fac905986d491.tar.gz | |
Nits in the DynaLoader test: make it warning-clean,
and avoid checking OS- and locale-specific messages
p4raw-id: //depot/perl@28227
Diffstat (limited to 'ext/DynaLoader')
| -rw-r--r-- | ext/DynaLoader/t/DynaLoader.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/DynaLoader/t/DynaLoader.t b/ext/DynaLoader/t/DynaLoader.t index bc96fab668..ad8dc450db 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() |