diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-08-28 22:16:31 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-08-28 22:26:50 +0100 |
commit | a2c4b2d6db383103b96e4733616b17d0a3bb0bd9 (patch) | |
tree | df23295a2b46da4e1e332f1d8c8ef1d6f85bac03 /ext/DynaLoader | |
parent | ff96ef94f9d814897508801f92ba5679164d9b1e (diff) | |
download | perl-a2c4b2d6db383103b96e4733616b17d0a3bb0bd9.tar.gz |
Use & function-call notation to disable prototype checking on dl_load_file()
This causes the test for insufficient arguments to work on Win32 too, where
(for some reason) DynaLoader.xs is built *with* prototypes on the XS code.
On *nix, where it is build by MakeMaker in ext/DynaLoader/, it is built without
prototypes on the XS code, so the check on the number of parameters for
dl_load_file() is purely run-time, which is what the test script used to assume.
Diffstat (limited to 'ext/DynaLoader')
-rw-r--r-- | ext/DynaLoader/t/DynaLoader.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/DynaLoader/t/DynaLoader.t b/ext/DynaLoader/t/DynaLoader.t index 28d91e0bfe..2cff37a301 100644 --- a/ext/DynaLoader/t/DynaLoader.t +++ b/ext/DynaLoader/t/DynaLoader.t @@ -87,7 +87,7 @@ if ($Config{usedl}) { # .. for dl_load_file() SKIP: { skip "no dl_load_file with dl_none.xs", 2 unless $Config{usedl}; - eval { DynaLoader::dl_load_file() }; + eval { &DynaLoader::dl_load_file() }; like( $@, q{/^Usage: DynaLoader::dl_load_file\(filename, flags=0\)/}, "calling DynaLoader::dl_load_file() with no argument" ); |