summaryrefslogtreecommitdiff
path: root/ext/DynaLoader
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2009-08-28 22:16:31 +0100
committerNicholas Clark <nick@ccl4.org>2009-08-28 22:26:50 +0100
commita2c4b2d6db383103b96e4733616b17d0a3bb0bd9 (patch)
treedf23295a2b46da4e1e332f1d8c8ef1d6f85bac03 /ext/DynaLoader
parentff96ef94f9d814897508801f92ba5679164d9b1e (diff)
downloadperl-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.t2
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" );