X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=os2%2FOS2%2FExtAttr%2FExtAttr.xs;h=1f4e203cec92141b0398c962d1af8ea3dcd6daa1;hb=22d4bb9ccb8701e68f9243547d7e3a3c55f70908;hp=a69a01c7f3a54993221dd6c5ffa210400c1659ae;hpb=4b19af017623bfa3bb72bb164598a517f586e0d3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/os2/OS2/ExtAttr/ExtAttr.xs b/os2/OS2/ExtAttr/ExtAttr.xs
index a69a01c..1f4e203 100644
--- a/os2/OS2/ExtAttr/ExtAttr.xs
+++ b/os2/OS2/ExtAttr/ExtAttr.xs
@@ -15,13 +15,13 @@ my_eadvalue(pTHX_ _ead ead, int index)
 {
     SV *sv;
     int size = _ead_value_size(ead, index);
-    void *p;
+    const char *p;
 
     if (size == -1) {
 	Perl_die(aTHX_ "Error getting size of EA: %s", strerror(errno));
     }
     p = _ead_get_value(ead, index);
-    return  newSVpv((char*)p, size);
+    return  newSVpv(p, size);
 }
 
 #define my_eadreplace(ead, index, sv, flag)	\
@@ -136,7 +136,7 @@ _ead_find(ead, name)
 	_ead	ead
 	char *	name
 
-void *
+const void *
 _ead_get_fea2list(ead)
 	_ead	ead
 
@@ -145,12 +145,12 @@ _ead_get_flags(ead, index)
 	_ead	ead
 	int	index
 
-char *
+const char *
 _ead_get_name(ead, index)
 	_ead	ead
 	int	index
 
-void *
+const void *
 _ead_get_value(ead, index)
 	_ead	ead
 	int	index