[perl #30880] [PATCH] const* vs non compiler silencing

[via RT]

# New Ticket Created by  Jarkko Hietaniemi 
# Please include the string:  [perl #30880]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=30880 >



-- 
Jarkko Hietaniemi <[EMAIL PROTECTED]> http://www.iki.fi/jhi/ "There is this special
biologist word we use for 'stable'.  It is 'dead'." -- Jack Cohen


diff -u -r1.211 string.c
--- src/string.c        29 Jul 2004 06:56:35 -0000      1.211
+++ src/string.c        29 Jul 2004 22:49:10 -0000
@@ -258,7 +258,7 @@
         data_dir = const_cast(DEFAULT_ICU_DATA_DIR);
     string_set_data_directory(data_dir);
     if (free_data_dir)
-        mem_sys_free(data_dir);
+        mem_sys_free((void*)data_dir); /* cast away the constness */
 /*
     encoding_init();
     chartype_init();