--- libnet-irc-perl-0.75.orig/debian/rules +++ libnet-irc-perl-0.75/debian/rules @@ -0,0 +1,54 @@ +#! /usr/bin/make -f +# -*-makefile-*- +# debian/rules file for libnet-irc-perl + +PERL ?= /usr/bin/perl + +package := $(firstword $(shell dh_listpackages)) +TMP := $(CURDIR)/debian/$(package) + +include /usr/share/quilt/quilt.make + +build: build-stamp +build-stamp: $(QUILT_STAMPFN) + dh_testdir + $(PERL) Makefile.PL INSTALLDIRS=vendor PERL=$(PERL) + $(MAKE) + $(MAKE) test + touch $@ + +clean: unpatch + dh_clean build-stamp install-stamp + [ ! -f Makefile ] || ( touch Makefile && $(MAKE) distclean ) + +install: install-stamp +install-stamp: build-stamp checkroot + dh_clean -k + + $(MAKE) pure_install DESTDIR=$(TMP) PREFIX=/usr + chmod 0644 irctest + [ ! -d $(TMP)/usr/lib/perl5 ] || rmdir --ignore-fail-on-non-empty --parents --verbose $(TMP)/usr/lib/perl5 + touch $@ + +binary-indep: checkroot install + dh_installdocs README TODO + dh_installexamples irctest + dh_installchangelogs Changes + + dh_compress -X irctest + dh_fixperms + dh_perl + dh_installdeb + dh_gencontrol + dh_md5sums + dh_builddeb + +binary-arch: checkroot build + +binary: binary-indep binary-arch + +checkroot: + dh_testdir + dh_testroot + +.PHONY: binary binary-arch binary-indep clean checkroot build --- libnet-irc-perl-0.75.orig/debian/patches/20do_one_loop.diff +++ libnet-irc-perl-0.75/debian/patches/20do_one_loop.diff @@ -0,0 +1,13 @@ +Index: libnet-irc-perl/IRC.pm +=================================================================== +--- libnet-irc-perl.orig/IRC.pm 2008-01-24 15:43:38.000000000 +0200 ++++ libnet-irc-perl/IRC.pm 2008-01-24 16:38:13.000000000 +0200 +@@ -138,7 +138,7 @@ + # we don't want to bother waiting on input or running + # scheduled events if we're just flushing the output queue + # so we bail out here +- return if $caller eq 'Net::IRC::flush_output_queue'; ++ return if defined($caller) and $caller eq 'Net::IRC::flush_output_queue'; + + # Check the queue for scheduled events to run. + if(!$self->schedulequeue->is_empty) { --- libnet-irc-perl-0.75.orig/debian/patches/10manpages.diff +++ libnet-irc-perl-0.75/debian/patches/10manpages.diff @@ -0,0 +1,17 @@ +Index: libnet-irc-perl/Makefile.PL +=================================================================== +--- libnet-irc-perl.orig/Makefile.PL 2008-01-24 15:43:38.000000000 +0200 ++++ libnet-irc-perl/Makefile.PL 2008-01-24 16:38:13.000000000 +0200 +@@ -21,6 +21,12 @@ + 'IO::Socket' => 0, + 'Sys::Hostname' => 0, + }, ++ 'MAN3PODS' => { ++ 'IRC.pm' => 'blib/man3/Net::IRC.3pm', ++ 'Connection.pm' => 'blib/man3/Net::IRC::Connection.3pm', ++ 'DCC.pm' => 'blib/man3/Net::IRC::DCC.3pm', ++ 'Event.pm' => 'blib/man3/Net::IRC::Event.3pm', ++ }, + 'VERSION_FROM' => 'IRC.pm', # finds $VERSION + 'dist' => { 'COMPRESS' => 'gzip --best' }, + ); --- libnet-irc-perl-0.75.orig/debian/patches/series +++ libnet-irc-perl-0.75/debian/patches/series @@ -0,0 +1,6 @@ +10manpages.diff +20do_one_loop.diff +30irctest.diff +40handler.diff +50fix_next_outside_loop_with_return.diff +60warnings_from_unknown_event.diff --- libnet-irc-perl-0.75.orig/debian/patches/40handler.diff +++ libnet-irc-perl-0.75/debian/patches/40handler.diff @@ -0,0 +1,13 @@ +Index: libnet-irc-perl/DCC.pm +=================================================================== +--- libnet-irc-perl.orig/DCC.pm 2008-01-24 15:43:38.000000000 +0200 ++++ libnet-irc-perl/DCC.pm 2008-01-24 16:38:14.000000000 +0200 +@@ -145,7 +145,7 @@ + # Only do the Disconnection Dance of Death if the socket is still + # live. Duplicate dcc_close events would be a Bad Thing. + +- if ($self->{_socket}->opened) { ++ if ($self->{_socket}->opened and $self->{_parent}->can('handler')) { + $self->{_parent}->handler(Net::IRC::Event->new('dcc_close', + $self->{_nick}, + $self->{_socket}, --- libnet-irc-perl-0.75.orig/debian/patches/50fix_next_outside_loop_with_return.diff +++ libnet-irc-perl-0.75/debian/patches/50fix_next_outside_loop_with_return.diff @@ -0,0 +1,13 @@ +Index: libnet-irc-perl/DCC.pm +=================================================================== +--- libnet-irc-perl.orig/DCC.pm 2008-01-24 16:38:14.000000000 +0200 ++++ libnet-irc-perl/DCC.pm 2008-01-24 16:38:14.000000000 +0200 +@@ -253,7 +253,7 @@ + + my $line = $self->_getline($_[0], 'BLOCKS'); + +- next unless defined $line; ++ return unless defined $line; + unless(print {$self->{_fh}} $line) { + carp ("Error writing to " . $self->{_filename} . ": $!"); + close $self->{_fh}; --- libnet-irc-perl-0.75.orig/debian/patches/30irctest.diff +++ libnet-irc-perl-0.75/debian/patches/30irctest.diff @@ -0,0 +1,26 @@ +Index: libnet-irc-perl/irctest +=================================================================== +--- libnet-irc-perl.orig/irctest 2008-01-24 15:43:38.000000000 +0200 ++++ libnet-irc-perl/irctest 2008-01-24 16:38:14.000000000 +0200 +@@ -14,6 +14,21 @@ + + my $irc = new Net::IRC; + ++print << 'INIT_WARN'; +++------------------------------------------------------------ ++| IMPORTANT NOTE ++| ++| Running this script might constitute a severe security risk ++| This script will send ANY FILE it is requested as a response ++| to the message 'Send me ' ++| ++| You have been warned. +++------------------------------------------------------------ ++(sleeping for two seconds) ++INIT_WARN ++ ++sleep 2; ++ + print "Creating connection to IRC server...\n"; + + my $conn = $irc->newconn(Server => ($ARGV[0] || 'irc.prison.net'), --- libnet-irc-perl-0.75.orig/debian/patches/60warnings_from_unknown_event.diff +++ libnet-irc-perl-0.75/debian/patches/60warnings_from_unknown_event.diff @@ -0,0 +1,38 @@ +Index: libnet-irc-perl/Connection.pm +=================================================================== +--- libnet-irc-perl.orig/Connection.pm 2008-01-24 15:43:38.000000000 +0200 ++++ libnet-irc-perl/Connection.pm 2008-01-24 16:38:15.000000000 +0200 +@@ -467,6 +467,7 @@ + my $ev; + if (ref $event) { + $ev = $event->type; ++ $ev = "" if !$ev; + } elsif (defined $event) { + $ev = $event; + $event = Net::IRC::Event->new($event, '', '', ''); +@@ -1126,11 +1127,15 @@ + + $from = substr $from, 1 if $from =~ /^:/; + +- return Net::IRC::Event->new( $type, ++ my $event = Net::IRC::Event->new( $type, + $from, + '', + 'server', + @stuff ); ++ if (!$event->type and $self->{_debug}) { ++ carp("Unknown code $type received") ; ++ } ++ return $event; + } + + # Helps you flee those hard-to-stand channels. +@@ -1584,6 +1589,8 @@ + croak "You EEEEEDIOT!!! Not enough args to _default()!"; + } + ++ return 1 if !$event->type; ++ + # Reply to PING from server as quickly as possible. + if ($event->type eq "ping") { + $self->sl("PONG " . (CORE::join ' ', $event->args)); --- libnet-irc-perl-0.75.orig/debian/watch +++ libnet-irc-perl-0.75/debian/watch @@ -0,0 +1,4 @@ +version=3 + +http://search.cpan.org/dist/Net-IRC/ .+/Net-IRC-v?(\d[\d._]*)\.(?:tar\.gz|tar\.bz2|tgz|\.zip) + --- libnet-irc-perl-0.75.orig/debian/compat +++ libnet-irc-perl-0.75/debian/compat @@ -0,0 +1 @@ +6 --- libnet-irc-perl-0.75.orig/debian/copyright +++ libnet-irc-perl-0.75/debian/copyright @@ -0,0 +1,27 @@ +Net::IRC was downloaded from: http://search.cpan.org/dist/Net-IRC/ + +Files: * +Copyright (c) 1997 Greg Bacon & Dennis Taylor. All rights reserved. +License: Artistic + This module is free software; you can redistribute it and/or + modify it under the terms of the Perl Artistic License, distributed + with this module. + +Files: Event.pm +Copyright: (c) 2001 Pete Sergeant, Greg Bacon & Dennis Taylor. +License: Artistic + This module is free software; you can redistribute or modify it under the + terms of Perl's Artistic License. + +Files: debian/* +Copyright: © 1998 Ben Gertzfield + © 1999 Raphael Hertzog + © 1999,2000,2002 Stephen Zander + © 2002 Wichert Akkerman + © 2004-2008 Debian Perl Group +License: other + It is assumed that package maintainers license their work unter terms, + compatible with upstream licensing terms. + +The Perl Artistic License is available on Debian GNU/Linux systems in the file +/usr/share/common-licenses/Artistic --- libnet-irc-perl-0.75.orig/debian/changelog +++ libnet-irc-perl-0.75/debian/changelog @@ -0,0 +1,186 @@ +libnet-irc-perl (0.75-8) unstable; urgency=low + + [ gregor herrmann ] + * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser + field (source stanza); Homepage field (source stanza). Removed: XS- + Vcs-Svn fields. + * debian/rules: delete /usr/lib/perl5 only if it exists. + + [ Frank Lichtenheld ] + * debian/rules: Fix target dependencies to allow building with dpkg- + buildpackage -j. Found by Daniel Schepler. + + [ Rene Mayorga ] + * debian/control + + wrap Uploaders field + + Set Standards-version to 3.7.3 (no changes needed) + + raise debhelper to 6 + + Add ${misc:Depends} to Depends + * debian/watch - Improved + * debian/copyright + + Add Upstream URL + + converting to new format and adding copyright note for other authors + + [ Damyan Ivanov ] + * convert patches to quilt + * debian/rules: + + split install(-stamp) target + + use DESTDIR and PREFIX when installing + + install TODO too + * debian/copyright: add copyright/licensing terms for the packaging + * add myself to Uploaders + + -- Damyan Ivanov Thu, 24 Jan 2008 17:28:20 +0200 + +libnet-irc-perl (0.75-7) unstable; urgency=low + + * debian/patches/50fix_next_outside_loop_with_return.dpatch: + fix subroutine exit via 'next'. Thanks to David Sobon. (Closes: #437474) + * debian/patches/60warnings_from_unknown_event.dpatch: + fix warnings from unknown response codes. Thanks to David Sobon. + (See #437474) + * Update to debhelper compatibility level 5. + + -- Niko Tyni Sun, 16 Sep 2007 21:59:14 +0300 + +libnet-irc-perl (0.75-6) unstable; urgency=low + + * Use $(CURDIR) [make] instead of $(PWD) [sh] to fix issues with sudo. + * Set Standards-Version to 3.7.2 (no changes). + * Remove empty /usr/lib/perl5 directory. + + -- gregor herrmann Sun, 1 Oct 2006 14:35:15 +0200 + +libnet-irc-perl (0.75-5) unstable; urgency=low + + * Migrate to dpatch. + * Add myself to Uploaders. + * Move debhelper from Build-Depends-Indep to Build-Depends, + as per policy. + * Upgrade to Standards-Version 3.6.2. No changes needed. + * Don't ignore the return value of 'make test'. + * debian/patches/40handler.pm: + + only call handler() if the object supports it. (Closes: #303400) + + -- Niko Tyni Sat, 14 Jan 2006 17:23:40 +0200 + +libnet-irc-perl (0.75-4) unstable; urgency=low + + * Example file irctest is no longer compressed, can be directly run + * In case somebody runs the example file irctest, he will get a + warning and a delay, as this script can send any user-readable file + on the FS + * Fixed: debian/watch pointed to the wrong URL + + -- Gunnar Wolf Sat, 16 Apr 2005 11:47:13 -0500 + +libnet-irc-perl (0.75-3) unstable; urgency=low + + * Added debian/watch file + * Fixed uninitialized value generating a warning in do_one_loop - + Thanks to Michael Ablassmeier for the patch. (Closes: #299606) + + -- Gunnar Wolf Sat, 26 Mar 2005 13:28:24 -0600 + +libnet-irc-perl (0.75-2) unstable; urgency=low + + * Fixed: Generated man pages now have the correct name (was + consistently missing ::IRC) (Closes: #295967) + + -- Gunnar Wolf Sat, 26 Mar 2005 13:26:44 -0600 + +libnet-irc-perl (0.75-1) unstable; urgency=low + + * New upstream release + * Upstream fixed manpage descriptions to correctly reflect the + modules' names (Closes: #252994) + + -- Gunnar Wolf Fri, 17 Dec 2004 17:04:02 -0600 + +libnet-irc-perl (0.73-3) unstable; urgency=low + + * Changed source package name back to libnet-irc-perl, to be + consistent with other Perl packages + * Bumped up standards-version to 3.6.1 + * Moved to section: perl + * New maintainer - Debian Perl Group via Gunnar Wolf + (Closes: #279810) + + -- Gunnar Wolf Thu, 16 Dec 2004 17:37:48 -0600 + +net-irc (0.73-2) unstable; urgency=low + + * Fix failure in coonection caused by hostnames that don't resolve or + that resolve to 127.0.0.1, + Closes: #143769 + + -- Stephen Zander Sat, 18 May 2002 18:06:49 -0700 + +net-irc (0.73-1) unstable; urgency=low + + * New upstream source, Closes: #99846, #128828 + * Merges NMU changes into CVS repository, + Closes: #98148, #113205, #119502, #127479 + + -- Stephen Zander Fri, 11 Jan 2002 22:56:08 -0800 + +net-irc (0.70-1.1) unstable; urgency=low + + * Non-maintainer upload + * Fix IPv6 address parsing. Closes: Bug#119502 + * Rebuild with current dehhelper + * Use INSTALLDIRS=vendor for MakeMakfile. Closes: Bug#113205 + * Add patch from Andrew Suffield to disable Sys::Hostname usage which + broke the LocalAddr parameter. Closes: Bug#98148 + * Add Build-Depends + * Zap emacs bits from changelog + + -- Wichert Akkerman Wed, 2 Jan 2002 18:48:19 +0100 + +net-irc (0.70-1) unstable; urgency=low + + * New upstream source, Closes: #78323 + * Termination of DCC session now works, Closes: #60616 + + -- Stephen Zander Tue, 12 Dec 2000 18:43:37 -0800 + +net-irc (0.63-1) unstable; urgency=low + + * New upstream source. + * Brought .orig.tar.gz in line with upstream. + + -- Stephen Zander Tue, 18 Apr 2000 18:05:54 -0700 + +libnet-irc-perl (0.62-1) unstable; urgency=low + + * New upstream source. + + -- Stephen Zander Fri, 5 Nov 1999 19:58:05 -0800 + +libnet-irc-perl (0.60-1) unstable; urgency=low + + * New maintainer. + * New upstream source. + + -- Stephen Zander Thu, 19 Aug 1999 08:59:04 -0700 + +libnet-irc-perl (0.54-1.1) unstable; urgency=low + + * NMU for the perl upgrade. Closes:#41523 + * Corrected the rules files to conform to perl policy 1.0.1 + * Upgraded standards-version. + * The .packlist file is removed by dh_perl. Closes: #37937 + * Included irctest. Closes: #25524 + * Included the Changes file as the upstream changelog file. + * Set to architecture all since there are no binary files. + + -- Raphael Hertzog Mon, 19 Jul 1999 19:59:14 +0200 + +libnet-irc-perl (0.54-1) unstable; urgency=low + + * Initial release. + + -- Ben Gertzfield Mon, 3 Aug 1998 00:07:23 -0700 + + --- libnet-irc-perl-0.75.orig/debian/control +++ libnet-irc-perl-0.75/debian/control @@ -0,0 +1,20 @@ +Source: libnet-irc-perl +Section: perl +Priority: optional +Maintainer: Debian Perl Group +Uploaders: Gunnar Wolf , Niko Tyni , + gregor herrmann , Damyan Ivanov +Standards-Version: 3.7.3 +Homepage: http://search.cpan.org/dist/Net-IRC/ +Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libnet-irc-perl/ +Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-irc-perl/ +Build-Depends: debhelper (>= 6), quilt +Build-Depends-Indep: perl (>= 5.6.1) + +Package: libnet-irc-perl +Architecture: all +Depends: ${perl:Depends}, ${misc:Depends} +Description: IRC (Internet Relay Chat) interface module for Perl + This package contains an interface to write programs that connect + to IRC, the Internet Relay Chat. +