Package: libnet-rawip-perl
Severity: normal
Tags: patch
When building 'libnet-rawip-perl' on amd64 with gcc-4.0,
I get the following error:
RawIP.xs: In function 'XS_Net__RawIP_dispatch':
RawIP.xs:1287: error: invalid lvalue in assignment
RawIP.xs: In function 'XS_Net__RawIP_loop':
RawIP.xs:1309: error: invalid lvalue in assignment
RawIP.xs: In function 'XS_Net__RawIP_next':
RawIP.xs:1368: warning: pointer targets in passing argument 2 of 'Perl_newSVpv'
differ in signedness
RawIP.xs:1370: warning: pointer targets in passing argument 3 of
'Perl_sv_setpvn' differ in signedness
make[1]: *** [RawIP.o] Error 1
make[1]: Leaving directory `/libnet-rawip-perl-0.10'
make: *** [debian/stamp-makefile-build] Error 2
With the attached patch 'libnet-rawip-perl' can be compiled
on amd64 using gcc-4.0.
Regards
Andreas Jochens
diff -urN ../tmp-orig/libnet-rawip-perl-0.10/RawIP.xs ./RawIP.xs
--- ../tmp-orig/libnet-rawip-perl-0.10/RawIP.xs 2005-02-27 22:55:25.164416039
+0000
+++ ./RawIP.xs 2005-02-27 22:54:47.805626975 +0000
@@ -759,7 +759,7 @@
if(ihl > 5){
av_store(RETVAL,28,
ip_opts_parse(sv_2mortal(newSVpv((u_char*)pktr + 20,ihl*4 - 20))));
- (u_char*)pktr = (u_char*)pktr + (ihl*4 - 20);
+ pktr = (u_char*)pktr + (ihl*4 - 20);
ipo = 1;
}
doff = pktr->th.doff;
@@ -785,7 +785,7 @@
}
av_store(RETVAL,29,
tcp_opts_parse(sv_2mortal(newSVpv((u_char*)pktr+40,doff*4-20))));
- (u_char*)pktr = (u_char*)pktr + (doff*4 - 20);
+ pktr = (u_char*)pktr + (doff*4 - 20);
}
av_store(RETVAL,27,newSVpv(((u_char*)&pktr->th.urg_ptr+2),
tot_len - (4*ihl + doff*4)));
@@ -818,7 +818,7 @@
if(ihl > 5){
av_store(RETVAL,20,
ip_opts_parse(sv_2mortal(newSVpv((u_char*)pktr + 20,ihl*4 - 20))));
- (u_char*)pktr = (u_char*)pktr + (ihl*4 - 20);
+ pktr = (u_char*)pktr + (ihl*4 - 20);
}
av_store(RETVAL,11,newSViv(pktr->ich.type));
av_store(RETVAL,12,newSViv(pktr->ich.code));
@@ -858,7 +858,7 @@
if(ihl > 5){
av_store(RETVAL,12,
ip_opts_parse(sv_2mortal(newSVpv((u_char*)pktr + 20,ihl*4 - 20))));
- (u_char*)pktr = (u_char*)pktr + (ihl*4 - 20);
+ pktr = (u_char*)pktr + (ihl*4 - 20);
}
av_store(RETVAL,11,newSVpv(((u_char*)pktr+20),
tot_len - 4*ihl));
@@ -892,7 +892,7 @@
if(ihl > 5){
av_store(RETVAL,16,
ip_opts_parse(sv_2mortal(newSVpv((u_char*)pktr + 20,ihl*4 - 20))));
- (u_char*)pktr = (u_char*)pktr + (ihl*4 - 20);
+ pktr = (u_char*)pktr + (ihl*4 - 20);
}
av_store(RETVAL,11,newSViv(ntohs(pktr->uh.source)));
av_store(RETVAL,12,newSViv(ntohs(pktr->uh.dest)));
@@ -1284,7 +1284,7 @@
CODE:
printer = print;
if(!SvROK(user) && SvOK(user)){
- (u_char *)user = SvIV(user);
+ user = SvIV(user);
ptr = &handler;
}
else {
@@ -1306,7 +1306,7 @@
CODE:
printer = print;
if(!SvROK(user) && SvOK(user)){
- (u_char *)user = SvIV(user);
+ user = SvIV(user);
ptr = &handler;
}
else {
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
