Hello community,
here is the log from the commit of package perl-Socket6
checked in at Mon Nov 3 14:17:14 CET 2008.
--------
--- perl-Socket6/perl-Socket6.changes 2006-01-25 21:39:57.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-Socket6/perl-Socket6.changes 2008-10-29 17:20:50.793488000 +0100
@@ -1,0 +2,5 @@
+Wed Oct 29 17:10:39 CET 2008 - mls@suse.de
+
+- update to Socket6-0.22, fixes bnc#426256
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
Socket6-0.18.tar.bz2
New:
----
Socket6-0.22.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Socket6.spec ++++++
--- /var/tmp/diff_new_pack.G10765/_old 2008-11-03 14:17:03.000000000 +0100
+++ /var/tmp/diff_new_pack.G10765/_new 2008-11-03 14:17:03.000000000 +0100
@@ -1,24 +1,30 @@
#
-# spec file for package perl-Socket6 (Version 0.18)
+# spec file for package perl-Socket6 (Version 0.22)
#
-# Copyright (c) 2005 SUSE LINUX Products GmbH, Nuernberg, Germany.
-# This file and all modifications and additions to the pristine
-# package are under the same license as the package itself.
+# Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
-# Please submit bugfixes or comments via http://www.suse.de/feedback/
+# All modifications and additions to the file contributed by third parties
+# remain the property of their copyright owners, unless otherwise agreed
+# upon. The license for this file, and modifications and additions to the
+# file, is the same license as for the pristine package itself (unless the
+# license for the pristine package is not an Open Source License, in which
+# case the license is the MIT License). An "Open Source License" is a
+# license that conforms to the Open Source Definition (Version 1.9)
+# published by the Open Source Initiative.
+
+# Please submit bugfixes or comments via http://bugs.opensuse.org/
#
# norootforbuild
+
Name: perl-Socket6
-URL: http://search.cpan.org/author/UMEMOTO/Socket6-0.11/
+Url: http://search.cpan.org/author/UMEMOTO/Socket6-0.11/
License: Artistic License
Group: Development/Libraries/Perl
-#Requires:
Requires: perl = %{perl_version}
-Autoreqprov: on
Summary: IPv6 Sockets (Perl Module)
-Version: 0.18
+Version: 0.22
Release: 1
Source: http://search.cpan.org/CPAN/authors/id/U/UM/UMEMOTO/Socket6-%{version}.tar.bz2
BuildRoot: %{_tmppath}/%{name}-%{version}-build
@@ -42,12 +48,11 @@
make test
%install
-[ "$RPM_BUILD_ROOT" != "/" ] && [ -d $RPM_BUILD_ROOT ] && rm -rf $RPM_BUILD_ROOT
make DESTDIR=$RPM_BUILD_ROOT install_vendor
%perl_process_packlist
%clean
-[ "$RPM_BUILD_ROOT" != "/" ] && [ -d $RPM_BUILD_ROOT ] && rm -rf $RPM_BUILD_ROOT
+rm -rf $RPM_BUILD_ROOT
%files
%defattr(-,root,root)
@@ -57,18 +62,20 @@
%doc MANIFEST README ChangeLog
/var/adm/perl-modules/%{name}
-%changelog -n perl-Socket6
-* Wed Jan 25 2006 - mls@suse.de
+%changelog
+* Wed Oct 29 2008 mls@suse.de
+- update to Socket6-0.22, fixes bnc#426256
+* Wed Jan 25 2006 mls@suse.de
- converted neededforbuild to BuildRequires
-* Fri Jul 29 2005 - mls@suse.de
+* Fri Jul 29 2005 mls@suse.de
- Update to Socket6-0.18
-* Mon Aug 16 2004 - garloff@suse.de
+* Mon Aug 16 2004 garloff@suse.de
- Update to Socket6-0.17:
* Build fixes Solaris and Win32.
* Minor bugfixes (compiler warnings, etc.).
-* Mon Feb 16 2004 - garloff@suse.de
+* Mon Feb 16 2004 garloff@suse.de
- Update to Socket6-0.14.
-* Fri Aug 22 2003 - mjancar@suse.cz
+* Fri Aug 22 2003 mjancar@suse.cz
- require the perl version we build with
-* Tue Jul 15 2003 - garloff@suse.de
+* Tue Jul 15 2003 garloff@suse.de
- Initial creation of package.
++++++ Socket6-0.18.tar.bz2 -> Socket6-0.22.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Socket6-0.18/aclocal.m4 new/Socket6-0.22/aclocal.m4
--- old/Socket6-0.18/aclocal.m4 2005-03-28 10:04:28.000000000 +0200
+++ new/Socket6-0.22/aclocal.m4 2005-08-27 18:37:32.000000000 +0200
@@ -25,7 +25,7 @@
dnl OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
dnl SUCH DAMAGE.
-dnl $Id: aclocal.m4,v 1.11 2005/03/28 08:04:28 ume Exp $
+dnl $Id: aclocal.m4,v 1.11 2005/08/27 16:37:32 ume Exp $
dnl SOCKET6_CHECK_PL_SV_UNDEF(VALUE-IF-FOUND , VALUE-IF-NOT-FOUND
dnl [, PERL-PATH])
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Socket6-0.18/ChangeLog new/Socket6-0.22/ChangeLog
--- old/Socket6-0.18/ChangeLog 2005-03-28 16:21:49.000000000 +0200
+++ new/Socket6-0.22/ChangeLog 2008-08-17 20:18:15.000000000 +0200
@@ -1,3 +1,62 @@
+2008-08-18 Hajimu UMEMOTO
+
+ * Socket6.pm: Bump version number to 0.22.
+
+ * Socket6.pm: Make AF_INET6 check actually work.
+
+ Submitted by: Tatsuya Noda
+
+ * Makefile.PL: Make sure to include config.pl in current
+ directory.
+
+2008-08-17 Hajimu UMEMOTO
+
+ * Socket6.pm: Bump version number to 0.21.
+
+ * Socket6.xs: Make it buildable on the following environment by
+ defining WINVER as 0x0501:
+ - Windows XP SP3
+ - ActivePerl-5.10.0.1003-MSWin32-x86-285500
+ - MinGW-5.1.4
+ - nmake 9.00.21022.08 (shipped with VisualStudio 2008 Express)
+
+ Submitted by: "IWAMURO Motonori"
+
+2008-02-16 Hajimu UMEMOTO
+
+ * Socket6.pm: Bump version number to 0.20.
+
+ * Socket6.pm: Make the AF_INET6 and PF_INET6 exports optional.
+ They are exported from Socket on 5.10.0, and it contlicts with
+ Socket6.
+
+ PR: http://rt.cpan.org/Public/Bug/Display.html?id=32362
+ Reported by: "Shlomi Fish via RT"
+ Submitted by: "KONDOU, Kazuhiro"
+
+2008-01-27 Hajimu UMEMOTO
+
+ * Socket6.xs, Socket6.pm: Make getaddrinfo() return the string
+ error or the numeric value according to the context.
+ Make getnameinfo() return error value.
+ Export the EAI_* error constants.
+
+ Submitted by: Paul LeoNerd Evans
+
+ * Socket6.xs: FreeBSD 7 and later don't have KAME IPsec anymore.
+
+ * Socket6.xs: gai_strerror() returns `const char *'.
+
+2005-08-28 Hajimu UMEMOTO
+
+ * Socket6.pm: Bump version number to 0.19.
+
+ * Socket6.xs: the "sin6_scope_id" field of the "sockaddr_in6"
+ structure is expected to passed and is returned in host byte
+ order.
+
+ Submitted by: "Town, David"
+
2005-03-28 Hajimu UMEMOTO
* Socket6.pm: Bump version number to 0.18.
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Socket6-0.18/configure.in new/Socket6-0.22/configure.in
--- old/Socket6-0.18/configure.in 2005-03-28 10:04:29.000000000 +0200
+++ new/Socket6-0.22/configure.in 2005-08-27 18:38:00.000000000 +0200
@@ -25,7 +25,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
-# $Id: configure.in,v 1.19 2005/03/28 08:04:29 ume Exp $
+# $Id: configure.in,v 1.19 2005/08/27 16:38:00 ume Exp $
AC_PREREQ(2.57)
AC_INIT(Socket6.pm)
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Socket6-0.18/gai.h new/Socket6-0.22/gai.h
--- old/Socket6-0.18/gai.h 2005-03-28 10:57:03.000000000 +0200
+++ new/Socket6-0.22/gai.h 2005-08-27 18:33:10.000000000 +0200
@@ -1,6 +1,6 @@
/*
* Mar 8, 2000 by Hajimu UMEMOTO
- * $Id: gai.h,v 1.10 2005/03/28 08:57:03 ume Exp $
+ * $Id: gai.h,v 1.10 2005/08/27 16:33:10 ume Exp $
*
* This module is besed on ssh-1.2.27-IPv6-1.5 written by
* KIKUCHI Takahiro
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Socket6-0.18/gailookup.pl.in new/Socket6-0.22/gailookup.pl.in
--- old/Socket6-0.18/gailookup.pl.in 2005-03-28 10:57:03.000000000 +0200
+++ new/Socket6-0.22/gailookup.pl.in 2005-10-11 08:57:21.000000000 +0200
@@ -30,7 +30,7 @@
;# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
;# SUCH DAMAGE.
-;# $Id: gailookup.pl.in,v 1.11 2005/03/28 08:57:03 ume Exp $
+;# $Id: gailookup.pl.in,v 1.12 2005/10/11 06:57:21 ume Exp $
use Getopt::Std;
use Socket;
@@ -40,10 +40,10 @@
my $inet6 = defined(eval 'PF_INET6');
my %opt;
-getopts(($inet6 ? 'achpsnNS46' : 'chpsnNS4'), \%opt);
+getopts(($inet6 ? 'achpsnNqS46' : 'chpsnNqS4'), \%opt);
if ($opt{'h'}){
- print STDERR ("Usage: $0 [-h | [-a] [-c] [-n] [-N] [-p] [-s] [-S] [-4" .
+ print STDERR ("Usage: $0 [-h | [-a] [-c] [-n] [-N] [-p] [-q] [-s] [-S] [-4" .
($inet6 && "|-6") . "] [host [serv]]]\n" .
"-h : help\n" .
"-a : AI_ADDRCONFIG flag\n" .
@@ -51,6 +51,7 @@
"-n : AI_NUMERICHOST flag\n" .
"-N : AI_NUMERICSERV flag\n" .
"-p : AI_PASSIVE flag\n" .
+ "-q : only show IP address\n" .
"-s : NI_WITHSCOPEID flag\n" .
"-S : suppress scopeid\n" .
($inet6 ? "-4|-6: PF_INET | PF_INET6" : "-4 : PF_INET") .
@@ -92,7 +93,11 @@
$sin = pack_sockaddr_in6_all($port, $flowinfo, $addr, 0);
}
my($addr, $port) = getnameinfo($sin, $nflags);
- print("family=$family, socktype=$socktype, protocol=$protocol, addr=$addr, port=$port");
- print(" canonname=$canonname") if ($opt{'c'});
+ if ($opt{'q'}) {
+ print("$addr");
+ } else {
+ print("family=$family, socktype=$socktype, protocol=$protocol, addr=$addr, port=$port");
+ print(" canonname=$canonname") if ($opt{'c'});
+ }
print("\n");
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Socket6-0.18/getaddrinfo.c new/Socket6-0.22/getaddrinfo.c
--- old/Socket6-0.18/getaddrinfo.c 2005-03-28 10:57:03.000000000 +0200
+++ new/Socket6-0.22/getaddrinfo.c 2005-08-27 18:33:10.000000000 +0200
@@ -1,6 +1,6 @@
/*
* Mar 8, 2000 by Hajimu UMEMOTO
- * $Id: getaddrinfo.c,v 1.13 2005/03/28 08:57:03 ume Exp $
+ * $Id: getaddrinfo.c,v 1.13 2005/08/27 16:33:10 ume Exp $
*
* This module is besed on ssh-1.2.27-IPv6-1.5 written by
* KIKUCHI Takahiro
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Socket6-0.18/Makefile.PL new/Socket6-0.22/Makefile.PL
--- old/Socket6-0.18/Makefile.PL 2004-03-24 09:37:18.000000000 +0100
+++ new/Socket6-0.22/Makefile.PL 2008-08-17 19:08:19.000000000 +0200
@@ -1,4 +1,4 @@
-# Copyright (C) 2000-2004 Hajimu UMEMOTO .
+# Copyright (C) 2000-2008 Hajimu UMEMOTO .
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
@@ -25,7 +25,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
-# $Id: Makefile.PL,v 1.6 2004/03/24 08:37:18 ume Exp $
+# $Id: Makefile.PL,v 1.7 2008/08/17 17:08:19 ume Exp $
use ExtUtils::MakeMaker;
@@ -38,7 +38,7 @@
system($cmd);
}
-require 'config.pl';
+require './config.pl';
WriteMakefile(
NAME => 'Socket6',
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Socket6-0.18/META.yml new/Socket6-0.22/META.yml
--- old/Socket6-0.18/META.yml 2005-03-28 16:24:58.000000000 +0200
+++ new/Socket6-0.22/META.yml 2008-08-17 20:25:55.000000000 +0200
@@ -1,10 +1,10 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Socket6
-version: 0.18
+version: 0.22
version_from: Socket6.pm
installdirs: site
requires:
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Socket6-0.18/README new/Socket6-0.22/README
--- old/Socket6-0.18/README 2005-03-28 11:36:19.000000000 +0200
+++ new/Socket6-0.22/README 2008-01-27 09:25:57.000000000 +0100
@@ -1,6 +1,6 @@
Socket6
-$Id: README,v 1.10 2005/03/28 09:36:19 ume Exp $
+$Id: README,v 1.11 2008/01/27 08:25:57 ume Exp $
1. Abstract
@@ -30,7 +30,7 @@
5. Copyright
-Copyright (C) 2000-2005 Hajimu UMEMOTO .
+Copyright (C) 2000-2008 Hajimu UMEMOTO .
All rights reserved.
Socket6.pm and Socket6.xs are based on perl5.005_55-v6-19990721
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Socket6-0.18/Socket6.pm new/Socket6-0.22/Socket6.pm
--- old/Socket6-0.18/Socket6.pm 2005-03-28 16:22:25.000000000 +0200
+++ new/Socket6-0.22/Socket6.pm 2008-08-17 20:25:07.000000000 +0200
@@ -1,4 +1,4 @@
-# Copyright (C) 2000-2005 Hajimu UMEMOTO .
+# Copyright (C) 2000-2008 Hajimu UMEMOTO .
# All rights reserved.
#
# This module is besed on perl5.005_55-v6-19990721 written by KAME
@@ -31,12 +31,12 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
-# $Id: Socket6.pm,v 1.35 2005/03/28 14:22:25 ume Exp $
+# $Id: Socket6.pm,v 1.42 2008/08/17 18:25:07 ume Exp $
package Socket6;
use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS);
-$VERSION = "0.18";
+$VERSION = "0.22";
=head1 NAME
@@ -145,15 +145,22 @@
This function will croak if it determines it has not been
passed an IPv6 structure.
- If the function returns an error value,
- the string version of that error will be returned as a single scalar.
+
+ If the lookup is unsuccessful, the function returns a single scalar.
+ This will contain the string version of that error in string context,
+ and the numeric value in numeric context.
=item getnameinfo NAME, [FLAGS]
- This function takes a socket address structure and returns either
- a node or service name.
+ This function takes a socket address structure. If successful, it returns
+ two strings containing the node name and service name.
+
The optional FLAGS argument controls what kind of lookup is performed.
+ If the lookup is unsuccessful, the function returns a single scalar.
+ This will contain the string version of that error in string context,
+ and the numeric value in numeric context.
+
=item getipnodebyname HOST, [FAMILY, FLAGS]
This function takes either a node name or an IP address string
@@ -213,7 +220,6 @@
gethostbyname2 getaddrinfo getnameinfo
in6addr_any in6addr_loopback
gai_strerror getipnodebyname getipnodebyaddr
- AF_INET6
AI_ADDRCONFIG
AI_ALL
AI_CANONNAME
@@ -224,6 +230,19 @@
AI_PASSIVE
AI_V4MAPPED
AI_V4MAPPED_CFG
+ EAI_ADDRFAMILY
+ EAI_AGAIN
+ EAI_BADFLAGS
+ EAI_FAIL
+ EAI_FAMILY
+ EAI_MEMORY
+ EAI_NODATA
+ EAI_NONAME
+ EAI_SERVICE
+ EAI_SOCKTYPE
+ EAI_SYSTEM
+ EAI_BADHINTS
+ EAI_PROTOCOL
IP_AUTH_TRANS_LEVEL
IP_AUTH_NETWORK_LEVEL
IP_ESP_TRANS_LEVEL
@@ -247,8 +266,9 @@
NI_NUMERICSERV
NI_DGRAM
NI_WITHSCOPEID
- PF_INET6
);
+push @EXPORT, qw(AF_INET6) unless defined eval {Socket::AF_INET6()};
+push @EXPORT, qw(PF_INET6) unless defined eval {Socket::PF_INET6()};
%EXPORT_TAGS = (
all => [@EXPORT],
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Socket6-0.18/Socket6.xs new/Socket6-0.22/Socket6.xs
--- old/Socket6-0.18/Socket6.xs 2005-03-28 10:57:03.000000000 +0200
+++ new/Socket6-0.22/Socket6.xs 2008-08-16 18:47:00.000000000 +0200
@@ -1,8 +1,8 @@
/*
* Socket6.xs
- * $Id: Socket6.xs,v 1.23 2005/03/28 08:57:03 ume Exp $
+ * $Id: Socket6.xs,v 1.29 2008/08/16 16:47:00 ume Exp $
*
- * Copyright (C) 2000-2005 Hajimu UMEMOTO .
+ * Copyright (C) 2000-2008 Hajimu UMEMOTO .
* All rights reserved.
*
* This moduled is besed on perl5.005_55-v6-19990721 written by KAME
@@ -38,6 +38,7 @@
#ifdef WIN32
+#define WINVER 0x0501
#include
#include
#ifndef NI_NUMERICSERV
@@ -59,8 +60,11 @@
#include
#include
#ifdef __KAME__
+# include
# include
-# ifndef __OpenBSD__
+# if defined(__FreeBSD__) && __FreeBSD_version >= 700048
+# include
+# elif !defined(__OpenBSD__)
# include
# endif
#endif
@@ -181,6 +185,86 @@
goto not_there;
#endif
break;
+ case 'E':
+ if (strEQ(name, "EAI_ADDRFAMILY"))
+#ifdef EAI_ADDRFAMILY
+ return EAI_ADDRFAMILY;
+#else
+ goto not_there;
+#endif
+ if (strEQ(name, "EAI_AGAIN"))
+#ifdef EAI_AGAIN
+ return EAI_AGAIN;
+#else
+ goto not_there;
+#endif
+ if (strEQ(name, "EAI_BADFLAGS"))
+#ifdef EAI_BADFLAGS
+ return EAI_BADFLAGS;
+#else
+ goto not_there;
+#endif
+ if (strEQ(name, "EAI_FAIL"))
+#ifdef EAI_FAIL
+ return EAI_FAIL;
+#else
+ goto not_there;
+#endif
+ if (strEQ(name, "EAI_FAMILY"))
+#ifdef EAI_FAMILY
+ return EAI_FAMILY;
+#else
+ goto not_there;
+#endif
+ if (strEQ(name, "EAI_MEMORY"))
+#ifdef EAI_MEMORY
+ return EAI_MEMORY;
+#else
+ goto not_there;
+#endif
+ if (strEQ(name, "EAI_NODATA"))
+#ifdef EAI_NODATA
+ return EAI_NODATA;
+#else
+ goto not_there;
+#endif
+ if (strEQ(name, "EAI_NONAME"))
+#ifdef EAI_NONAME
+ return EAI_NONAME;
+#else
+ goto not_there;
+#endif
+ if (strEQ(name, "EAI_SERVICE"))
+#ifdef EAI_SERVICE
+ return EAI_SERVICE;
+#else
+ goto not_there;
+#endif
+ if (strEQ(name, "EAI_SOCKTYPE"))
+#ifdef EAI_SOCKTYPE
+ return EAI_SOCKTYPE;
+#else
+ goto not_there;
+#endif
+ if (strEQ(name, "EAI_SYSTEM"))
+#ifdef EAI_SYSTEM
+ return EAI_SYSTEM;
+#else
+ goto not_there;
+#endif
+ if (strEQ(name, "EAI_BADHINTS"))
+#ifdef EAI_BADHINTS
+ return EAI_BADHINTS;
+#else
+ goto not_there;
+#endif
+ if (strEQ(name, "EAI_PROTOCOL"))
+#ifdef EAI_PROTOCOL
+ return EAI_PROTOCOL;
+#else
+ goto not_there;
+#endif
+ break;
case 'I':
if (strEQ(name, "IP_AUTH_TRANS_LEVEL"))
#ifdef IP_AUTH_TRANS_LEVEL
@@ -509,7 +593,7 @@
sin.sin6_flowinfo = htonl(flowinfo);
Copy( ip6_address, &sin.sin6_addr, sizeof sin.sin6_addr, char );
#ifdef HAVE_SOCKADDR_IN6_SIN6_SCOPE_ID
- sin.sin6_scope_id = htonl(scope_id);
+ sin.sin6_scope_id = scope_id;
#endif
ST(0) = sv_2mortal(newSVpv((char *)&sin, sizeof sin));
@@ -581,7 +665,7 @@
flowinfo = ntohl(addr.sin6_flowinfo);
ip6_address = addr.sin6_addr;
#ifdef HAVE_SOCKADDR_IN6_SIN6_SCOPE_ID
- scope_id = ntohl(addr.sin6_scope_id);
+ scope_id = addr.sin6_scope_id;
#else
scope_id = 0;
#endif
@@ -633,7 +717,7 @@
struct addrinfo hints, * res;
int err;
int count;
- char *error;
+ const char *error;
WSA_DECLARE;
Zero( &hints, sizeof hints, char );
@@ -665,8 +749,12 @@
}
freeaddrinfo(res);
} else {
+ SV *error_sv = sv_newmortal();
+ SvUPGRADE(error_sv, SVt_PVNV);
error = gai_strerror(err);
- PUSHs(sv_2mortal(newSVpv(error, strlen(error))));
+ sv_setpv(error_sv, error);
+ SvIV_set(error_sv, err); SvIOK_on(error_sv);
+ PUSHs(error_sv);
}
#else
ST(0) = (SV *) not_here("getaddrinfo");
@@ -685,6 +773,7 @@
char host[NI_MAXHOST];
char port[NI_MAXSERV];
int err;
+ const char *error;
WSA_DECLARE;
WSA_STARTUP();
@@ -711,6 +800,13 @@
EXTEND(sp, 2);
PUSHs(sv_2mortal(newSVpv(host, strlen(host))));
PUSHs(sv_2mortal(newSVpv(port, strlen(port))));
+ } else {
+ SV *error_sv = sv_newmortal();
+ SvUPGRADE(error_sv, SVt_PVNV);
+ error = gai_strerror(err);
+ sv_setpv(error_sv, error);
+ SvIV_set(error_sv, err); SvIOK_on(error_sv);
+ PUSHs(error_sv);
}
#else
ST(0) = (SV *) not_here("getnameinfo");
@@ -721,7 +817,7 @@
gai_strerror(errcode = 0)
int errcode;
CODE:
- RETVAL = gai_strerror(errcode);
+ RETVAL = (char *)gai_strerror(errcode);
OUTPUT:
RETVAL
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Socket6-0.18/t/use.t new/Socket6-0.22/t/use.t
--- old/Socket6-0.18/t/use.t 2004-03-23 18:07:44.000000000 +0100
+++ new/Socket6-0.22/t/use.t 2005-08-27 18:10:54.000000000 +0200
@@ -27,7 +27,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
-# $Id: use.t,v 1.2 2004/03/23 17:07:44 ume Exp $
+# $Id: use.t,v 1.2 2005/08/27 16:10:54 ume Exp $
use strict;
use Test;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org