r11781 - in /trunk/libio-interface-perl: Changes Interface.pm Interface.xs META.yml Makefile.PL debian/changelog debian/control
gwolf at users.alioth.debian.org
gwolf at users.alioth.debian.org
Thu Dec 27 23:17:13 UTC 2007
Author: gwolf
Date: Thu Dec 27 23:17:13 2007
New Revision: 11781
URL: http://svn.debian.org/wsvn/?sc=1&rev=11781
Log:
New upstream version
Modified:
trunk/libio-interface-perl/Changes
trunk/libio-interface-perl/Interface.pm
trunk/libio-interface-perl/Interface.xs
trunk/libio-interface-perl/META.yml
trunk/libio-interface-perl/Makefile.PL
trunk/libio-interface-perl/debian/changelog
trunk/libio-interface-perl/debian/control
Modified: trunk/libio-interface-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libio-interface-perl/Changes?rev=11781&op=diff
==============================================================================
--- trunk/libio-interface-perl/Changes (original)
+++ trunk/libio-interface-perl/Changes Thu Dec 27 23:17:13 2007
@@ -1,4 +1,7 @@
Revision history for Perl extension IO::Interface.
+1.04 Wed Dec 26 13:38:53 EST 2007
+ Fix from John Lightsey to avoid dmesg warnings on BSD systems.
+
1.03 Mon Jan 22 16:38:24 EST 2007
Fix to compile cleanly on solaris systems.
Modified: trunk/libio-interface-perl/Interface.pm
URL: http://svn.debian.org/wsvn/trunk/libio-interface-perl/Interface.pm?rev=11781&op=diff
==============================================================================
--- trunk/libio-interface-perl/Interface.pm (original)
+++ trunk/libio-interface-perl/Interface.pm Thu Dec 27 23:17:13 2007
@@ -28,7 +28,7 @@
@EXPORT = qw( );
@ISA = qw(Exporter DynaLoader);
-$VERSION = '1.03';
+$VERSION = '1.04';
sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant()
Modified: trunk/libio-interface-perl/Interface.xs
URL: http://svn.debian.org/wsvn/trunk/libio-interface-perl/Interface.xs?rev=11781&op=diff
==============================================================================
--- trunk/libio-interface-perl/Interface.xs (original)
+++ trunk/libio-interface-perl/Interface.xs Thu Dec 27 23:17:13 2007
@@ -35,14 +35,20 @@
#if !defined(__USE_BSD)
#if defined(__linux__)
+ typedef int IOCTL_CMD_T;
#define __USE_BSD
+ #elif defined(__APPLE__)
+ typedef unsigned long IOCTL_CMD_T;
+ #define __USE_BSD
+ #else
+ typedef int IOCTL_CMD_T;
#endif
- #if defined (__APPLE__)
- #define __USE_BSD
- #endif
-#endif
-
-#if defined(sun)
+#else
+ typedef unsigned long IOCTL_CMD_T;
+#endif
+
+/* HP-UX, Solaris */
+#if !defined(ifr_mtu) && defined(ifr_metric)
#define ifr_mtu ifr_metric
#endif
@@ -330,7 +336,7 @@
return 0;
}
-int Ioctl (InputStream sock,int operation,void* result) {
+int Ioctl (InputStream sock, IOCTL_CMD_T operation,void* result) {
int fd = PerlIO_fileno(sock);
return ioctl(fd,operation,result) == 0;
}
@@ -396,7 +402,7 @@
PROTOTYPE: $$;$
PREINIT:
STRLEN len;
- int operation;
+ IOCTL_CMD_T operation;
struct ifreq ifr;
char* newaddr;
CODE:
@@ -438,7 +444,7 @@
PROTOTYPE: $$;$
PREINIT:
STRLEN len;
- int operation;
+ IOCTL_CMD_T operation;
struct ifreq ifr;
char* newaddr;
CODE:
@@ -476,7 +482,7 @@
PROTOTYPE: $$;$
PREINIT:
STRLEN len;
- int operation;
+ IOCTL_CMD_T operation;
struct ifreq ifr;
char* newaddr;
CODE:
@@ -514,7 +520,7 @@
PROTOTYPE: $$;$
PREINIT:
STRLEN len;
- int operation;
+ IOCTL_CMD_T operation;
struct ifreq ifr;
char* newaddr;
CODE:
@@ -552,7 +558,7 @@
PROTOTYPE: $$;$
PREINIT:
STRLEN len;
- int operation;
+ IOCTL_CMD_T operation;
struct ifreq ifr;
char *newaddr,hwaddr[128];
CODE:
@@ -588,7 +594,8 @@
char* name
PROTOTYPE: $$;$
PREINIT:
- int operation,flags;
+ IOCTL_CMD_T operation;
+ int flags;
struct ifreq ifr;
CODE:
{
@@ -619,7 +626,8 @@
char* name
PROTOTYPE: $$;$
PREINIT:
- int operation,flags;
+ IOCTL_CMD_T operation;
+ int flags;
struct ifreq ifr;
CODE:
{
@@ -650,7 +658,8 @@
char* name
PROTOTYPE: $$;$
PREINIT:
- int operation,flags;
+ IOCTL_CMD_T operation;
+ int flags;
struct ifreq ifr;
CODE:
{
Modified: trunk/libio-interface-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libio-interface-perl/META.yml?rev=11781&op=diff
==============================================================================
--- trunk/libio-interface-perl/META.yml (original)
+++ trunk/libio-interface-perl/META.yml Thu Dec 27 23:17:13 2007
@@ -1,10 +1,11 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: IO-Interface
-version: 1.03
-version_from: Interface.pm
-installdirs: site
-requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+--- #YAML:1.0
+name: IO-Interface
+version: 1.04
+abstract: ~
+license: ~
+generated_by: ExtUtils::MakeMaker version 6.32
+distribution_type: module
+requires:
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
Modified: trunk/libio-interface-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libio-interface-perl/Makefile.PL?rev=11781&op=diff
==============================================================================
--- trunk/libio-interface-perl/Makefile.PL (original)
+++ trunk/libio-interface-perl/Makefile.PL Thu Dec 27 23:17:13 2007
@@ -3,6 +3,23 @@
my @libs = ();
push @libs,'-lresolv' unless $Config{d_inetaton};
+
+my $guess_cfg = {
+ 'freebsd' => {
+ 'defs' => '-D__USE_BSD',
+ },
+ 'netbsd' => {
+ 'defs' => '-D__USE_BSD',
+ },
+ 'openbsd' => {
+ 'defs' => '-D__USE_BSD',
+ }
+};
+
+my $guess = $guess_cfg->{$^O};
+unless (ref $guess eq 'HASH') {
+ $guess = {'defs' => ''};
+}
WriteMakefile(
'NAME' => 'IO::Interface',
@@ -12,12 +29,14 @@
PMLIBDIRS => ['Interface'],
CONFIGURE => sub {
my %attrs;
+ $attrs{DEFINE} = $guess->{'defs'};
+
print "Checking for getifaddrs()...";
eval { require 'ifaddrs.ph' };
if ($@ && !-r "/usr/include/ifaddrs.h") {
print " Nope, will not use it.\n";
} else {
- $attrs{DEFINE} = '-DUSE_GETIFADDRS';
+ $attrs{DEFINE} .= ' -DUSE_GETIFADDRS';
print " Okay, I will use it.\n";
}
\%attrs;
Modified: trunk/libio-interface-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libio-interface-perl/debian/changelog?rev=11781&op=diff
==============================================================================
--- trunk/libio-interface-perl/debian/changelog (original)
+++ trunk/libio-interface-perl/debian/changelog Thu Dec 27 23:17:13 2007
@@ -1,3 +1,10 @@
+libio-interface-perl (1.04-1) unstable; urgency=low
+
+ * New upstream release
+ * Added myself as an uploader
+
+ -- Gunnar Wolf <gwolf at debian.org> Thu, 27 Dec 2007 17:23:00 -0600
+
libio-interface-perl (1.03-2) UNRELEASED; urgency=low
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
Modified: trunk/libio-interface-perl/debian/control
URL: http://svn.debian.org/wsvn/trunk/libio-interface-perl/debian/control?rev=11781&op=diff
==============================================================================
--- trunk/libio-interface-perl/debian/control (original)
+++ trunk/libio-interface-perl/debian/control Thu Dec 27 23:17:13 2007
@@ -2,7 +2,9 @@
Section: perl
Priority: optional
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Zak B. Elep <zakame at spunge.org>, Carlo Segre <segre at debian.org>, Russ Allbery <rra at debian.org>, gregor herrmann <gregor+debian at comodo.priv.at>
+Uploaders: Zak B. Elep <zakame at spunge.org>, Carlo Segre
+ <segre at debian.org>, Russ Allbery <rra at debian.org>, gregor herrmann
+ <gregor+debian at comodo.priv.at>, Gunnar Wolf <gwolf at debian.org>
Build-Depends: debhelper (>= 5.0.0), perl (>= 5.8), netbase
Standards-Version: 3.7.2
Homepage: http://search.cpan.org/dist/IO-Interface/
More information about the Pkg-perl-cvs-commits
mailing list