diff options
| author | Craig A. Berry <craigberry@mac.com> | 2012-05-28 16:10:57 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2012-05-28 16:10:57 -0500 |
| commit | 7d08496d81c138d97fa9c2527d7ab35420186353 (patch) | |
| tree | 357cdfaa2a5948f179dff6477a791c88e1db2f62 /ext | |
| parent | 4adb78011458c37987e7cd058f602179f60944b2 (diff) | |
| download | perl-7d08496d81c138d97fa9c2527d7ab35420186353.tar.gz | |
Cast exception handler in dl_vms.xs.
C++ needs an explicit type on the handler.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DynaLoader/dl_vms.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/DynaLoader/dl_vms.xs b/ext/DynaLoader/dl_vms.xs index 52bf92d9f2..d68c95b5d3 100644 --- a/ext/DynaLoader/dl_vms.xs +++ b/ext/DynaLoader/dl_vms.xs @@ -127,7 +127,7 @@ my_find_image_symbol(struct dsc$descriptor_s *imgname, struct dsc$descriptor_s *defspec) { unsigned long int retsts; - VAXC$ESTABLISH(lib$sig_to_ret); + VAXC$ESTABLISH((__vms_handler)lib$sig_to_ret); retsts = lib$find_image_symbol(imgname,symname,entry,defspec,DL_CASE_SENSITIVE); return retsts; } |