From d2560b705d852dbc96fd94b95faaa076758b7a8c Mon Sep 17 00:00:00 2001 From: Robin Barker Date: Thu, 14 Sep 2000 19:07:38 +0100 Subject: continued -Wformat support Message-Id: <200009141707.SAA13276@tempest.npl.co.uk> p4raw-id: //depot/perl@7081 --- ext/DynaLoader/dl_dlopen.xs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'ext/DynaLoader') diff --git a/ext/DynaLoader/dl_dlopen.xs b/ext/DynaLoader/dl_dlopen.xs index 8e4936d128..350b0d5074 100644 --- a/ext/DynaLoader/dl_dlopen.xs +++ b/ext/DynaLoader/dl_dlopen.xs @@ -198,7 +198,7 @@ int dl_unload_file(libref) void * libref CODE: - DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_unload_file(%lx):\n", libref)); + DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_unload_file(%lx):\n", PTR2ul(libref))); RETVAL = (dlclose(libref) == 0 ? 1 : 0); if (!RETVAL) SaveError(aTHX_ "%s", dlerror()) ; -- cgit v1.2.1