--- libfile-slurp-perl-9999.13.orig/debian/README.source +++ libfile-slurp-perl-9999.13/debian/README.source @@ -0,0 +1,38 @@ +This package uses dpatch to manage all modifications to the upstream +source. Changes are stored in the source package as diffs in +debian/patches and applied during the build. + +To get the fully patched source after unpacking the source package, cd +to the root level of the source package and run: + + debian/rules patch + +Removing a patch is as simple as removing its entry from the +debian/patches/00list file, and please also remove the patch file +itself. + +Creating a new patch is done with "dpatch-edit-patch patch XX_patchname" +where you should replace XX with a new number and patchname with a +descriptive shortname of the patch. You can then simply edit all the +files your patch wants to edit, and then simply "exit 0" from the shell +to actually create the patch file. + +To tweak an already existing patch, call "dpatch-edit-patch XX_patchname" +and replace XX_patchname with the actual filename from debian/patches +you want to use. + +To clean up afterwards again, "debian/rules unpatch" will do the +work for you - or you can of course choose to call +"fakeroot debian/rules clean" all together. + + +--- + +this documentation is part of dpatch package, and may be used by +packages using dpatch to comply with policy on README.source. This +documentation is meant to be useful to users who are not proficient in +dpatch in doing work with dpatch-based packages. Please send any +improvements to the BTS of dpatch package. + +original text by Gerfried Fuchs, edited by Junichi Uekawa +10 Aug 2008. --- libfile-slurp-perl-9999.13.orig/debian/changelog +++ libfile-slurp-perl-9999.13/debian/changelog @@ -0,0 +1,110 @@ +libfile-slurp-perl (9999.13-1) unstable; urgency=low + + * New upstream release (closes: #546747) + + -- Alexander Zangerl Wed, 16 Sep 2009 09:56:44 +1000 + +libfile-slurp-perl (9999.12-3) unstable; urgency=low + + * added dpatch to build deps + * lifted standards version + * fixed too-low test plans (use_ok was missed) because + the newer test::xx tools are picky (closes: #546620) + + -- Alexander Zangerl Tue, 15 Sep 2009 17:58:21 +1000 + +libfile-slurp-perl (9999.12-2) unstable; urgency=low + + * modified binmode behaviour to work with multibyte-encoded + files. Thanks to Allard Hoeve for the patch. (closes: #429933) + also added a test for reading utf8-encoded data. + + -- Alexander Zangerl Wed, 27 Jun 2007 21:08:04 +1000 + +libfile-slurp-perl (9999.12-1) unstable; urgency=low + + * New upstream release + * lifted standards version, enabled full build tests by depending + some more perl test modules. + + -- Alexander Zangerl Thu, 15 Feb 2007 13:28:14 +1000 + +libfile-slurp-perl (9999.09-1) unstable; urgency=low + + * New upstream release (closes: #329540) + * updated watch file, lifted standards version, updated homepage + + -- Alexander Zangerl Sat, 24 Sep 2005 11:46:28 +1000 + +libfile-slurp-perl (9999.07-3) unstable; urgency=low + + * changed priority to optional: most perl packages seem + to be in the optional class and there are a few other packages + now that depend on libfile-slurp-perl and seem to belong to optional + themselves. + + -- Alexander Zangerl Sat, 16 Apr 2005 22:59:53 +1000 + +libfile-slurp-perl (9999.07-2) unstable; urgency=low + + * i'm taking back the package after an...ahem, injudicious upload + by a fellow developer. no names named, and thanks for telling + me about your mistake. + * upstream version lifted to 9999.07 + * fixed watch file + * fixed copyright file with perl paragraph + + -- Alexander Zangerl Mon, 11 Apr 2005 23:24:39 +1000 + +libfile-slurp-perl (9999.01-1) unstable; urgency=low + + * New upstream release, upstream maintainer changed, section corrected + * lifted standards version, added homepage to description + + -- Alexander Zangerl Thu, 11 Dec 2003 13:18:42 +1000 + +libfile-slurp-perl (2004.0904-1) unstable; urgency=low + + * new upstream version + * lifted standards version + + -- Alexander Zangerl Fri, 19 Sep 2003 19:52:23 +1000 + +libfile-slurp-perl (2002.1031-2) unstable; urgency=low + + * lifted standards version, debhelper cleanup + + -- Alexander Zangerl Sun, 9 Mar 2003 12:09:52 +1000 + +libfile-slurp-perl (2002.1031-1) unstable; urgency=low + + * New upstream release + * disabled /usr/doc transition stuff + + -- Alexander Zangerl Fri, 3 Jan 2003 16:00:10 +1000 + +libfile-slurp-perl (2002.0305-1) unstable; urgency=low + + * new upstream version which includes the changes in 2001.1103-3 + + -- Alexander Zangerl Sat, 9 Mar 2002 20:43:23 +1000 + +libfile-slurp-perl (2001.1103-3) unstable; urgency=low + + * added handling of $TMPDIR, $TEMP or $TMP for the tests. + * added some more error handling + + -- Alexander Zangerl Wed, 6 Mar 2002 00:27:45 +1000 + +libfile-slurp-perl (2001.1103-2) unstable; urgency=low + + * fixed dpkg-source warnings, initial upload (Closes: Bug#136175) + + -- Alexander Zangerl Mon, 4 Mar 2002 13:43:09 +1000 + +libfile-slurp-perl (2001.1103-1) unstable; urgency=low + + * Initial Release. + + -- Alexander Zangerl Wed, 27 Feb 2002 16:07:46 +1000 + --- libfile-slurp-perl-9999.13.orig/debian/control +++ libfile-slurp-perl-9999.13/debian/control @@ -0,0 +1,19 @@ +Source: libfile-slurp-perl +Section: perl +Priority: optional +Maintainer: Alexander Zangerl +Build-Depends: debhelper (>= 4.0.2), dpatch +Build-Depends-Indep: perl, libtest-pod-coverage-perl, libtest-pod-perl +Standards-Version: 3.8.3 + +Package: libfile-slurp-perl +Architecture: all +Depends: ${perl:Depends} +Homepage: http://search.cpan.org/~uri/ +Description: single call read & write file routines + This module consists of some quickie routines that read from, + append to or overwrite a file with a single subroutine call. Their main + intention is to save a couple of lines of code over and over again, + but they do not do anything fancy. + + --- libfile-slurp-perl-9999.13.orig/debian/copyright +++ libfile-slurp-perl-9999.13/debian/copyright @@ -0,0 +1,15 @@ +This package was debianized by Alexander Zangerl . +It was downloaded from http://www.cpan.org/authors/id/U/UR/URI/ + +Upstream Author: Uri Guttman + +Copyright: + +"Copyright (C) 2003 Uri Guttman + +Licensed the same as Perl." + +Perl is distributed under your choice of the GNU General Public License or +the Artistic License. On Debian GNU/Linux systems, the complete text of the +GNU General Public License can be found in `/usr/share/common-licenses/GPL' +and the Artistic Licence in `/usr/share/common-licenses/Artistic'. --- libfile-slurp-perl-9999.13.orig/debian/compat +++ libfile-slurp-perl-9999.13/debian/compat @@ -0,0 +1 @@ +4 --- libfile-slurp-perl-9999.13.orig/debian/watch +++ libfile-slurp-perl-9999.13/debian/watch @@ -0,0 +1,2 @@ +version=3 +http://cpan.org/authors/id/U/UR/URI/File-Slurp-(.*)\.tar\.gz debian --- libfile-slurp-perl-9999.13.orig/debian/libfile-slurp-perl.docs +++ libfile-slurp-perl-9999.13/debian/libfile-slurp-perl.docs @@ -0,0 +1,2 @@ +README +debian/README.source --- libfile-slurp-perl-9999.13.orig/debian/rules +++ libfile-slurp-perl-9999.13/debian/rules @@ -0,0 +1,51 @@ +#!/usr/bin/make -f +# Sample debian/rules that uses debhelper. +# GNU copyright 1997 to 1999 by Joey Hess. + +# to get the patch application targets +include /usr/share/dpatch/dpatch.make + +configure: Makefile +Makefile: Makefile.PL + dh_testdir + perl Makefile.PL INSTALLDIRS=vendor + +build: build-stamp + +build-stamp: patch configure + dh_testdir + $(MAKE) OPTIMIZE="-O2 -g -Wall" + touch build-stamp + +clean: unpatch + dh_testdir + dh_testroot + rm -f build-stamp + [ ! -f Makefile ] || $(MAKE) distclean + rm -f Makefile Makefile.old + dh_clean + +# Build architecture-independent files here. +binary-indep: build + dh_testdir + dh_testroot + dh_clean + dh_installdirs + $(MAKE) test + $(MAKE) install DESTDIR=$(CURDIR)/debian/libfile-slurp-perl/ + dh_install + dh_installdocs -n + dh_installchangelogs + dh_compress + dh_fixperms + dh_installdeb + dh_perl + dh_gencontrol + dh_md5sums + dh_builddeb + +# Build architecture-dependent files here. +binary-arch: build + +binary: binary-indep binary-arch +.PHONY: build clean binary-indep binary-arch binary configure --- libfile-slurp-perl-9999.13.orig/debian/patches/01_binmode.dpatch +++ libfile-slurp-perl-9999.13/debian/patches/01_binmode.dpatch @@ -0,0 +1,93 @@ +#! /bin/sh /usr/share/dpatch/dpatch-run +## 01_binmode.dpatch by +## +## All lines beginning with `## DP:' are a description of the patch. +## DP: binmode fix for multibyte-encoded data + +@DPATCH@ +diff -urNad File-Slurp-9999.12~/lib/File/Slurp.pm File-Slurp-9999.12/lib/File/Slurp.pm +--- File-Slurp-9999.12~/lib/File/Slurp.pm 2006-02-17 16:13:51.000000000 +1000 ++++ File-Slurp-9999.12/lib/File/Slurp.pm 2009-09-15 18:08:48.812021963 +1000 +@@ -126,7 +126,6 @@ + # a regular file. set the sysopen mode + + my $mode = O_RDONLY ; +- $mode |= O_BINARY if $args{'binmode'} ; + + #printf "RD: BINARY %x MODE %x\n", O_BINARY, $mode ; + +@@ -138,6 +137,8 @@ + goto &_error ; + } + ++ binmode($read_fh, $args{'binmode'}) if $args{'binmode'}; ++ + # get the size of the file for use in the read loop + + $size_left = -s $read_fh ; +@@ -284,7 +285,6 @@ + # set the mode for the sysopen + + my $mode = O_WRONLY | O_CREAT ; +- $mode |= O_BINARY if $args->{'binmode'} ; + $mode |= O_APPEND if $args->{'append'} ; + $mode |= O_EXCL if $args->{'no_clobber'} ; + +@@ -297,6 +297,8 @@ + @_ = ( $args, "write_file '$file_name' - sysopen: $!"); + goto &_error ; + } ++ ++ binmode($write_fh, $args->{'binmode'}) if $args->{'binmode'}; + } + + sysseek( $write_fh, 0, SEEK_END ) if $args->{'append'} ; +@@ -526,10 +528,8 @@ + mode. + + my $bin_data = read_file( $bin_file, binmode => ':raw' ) ; +- +-NOTE: this actually sets the O_BINARY mode flag for sysopen. It +-probably should call binmode and pass its argument to support other +-file modes. ++ # Or ++ my $bin_data = read_file( $bin_file, binmode => ':utf8' ) ; + + =head3 array_ref + +@@ -628,10 +628,8 @@ + mode. + + write_file( $bin_file, {binmode => ':raw'}, @data ) ; +- +-NOTE: this actually sets the O_BINARY mode flag for sysopen. It +-probably should call binmode and pass its argument to support other +-file modes. ++ # Or ++ write_file( $bin_file, {binmode => ':utf8'}, @data ) ; + + =head3 buf_ref + +diff -urNad File-Slurp-9999.12~/t/utf8.t File-Slurp-9999.12/t/utf8.t +--- File-Slurp-9999.12~/t/utf8.t 1970-01-01 10:00:00.000000000 +1000 ++++ File-Slurp-9999.12/t/utf8.t 2009-09-15 18:08:55.819972627 +1000 +@@ -0,0 +1,19 @@ ++use Test::More tests => 1; ++use strict; ++use File::Slurp; ++my $fn="/tmp/utf8.txt"; ++ ++my $data="hallo grüezi blödel schaß und aus.\n"; ++open F,">$fn"; ++binmode(F, ":utf8"); ++print F $data; ++close F; ++ ++my $x=read_file($fn,binmode=>":utf8"); ++ok($x eq $data,"utf8 encoded data survives slurp"); ++unlink($fn); ++ ++ ++ ++ ++ --- libfile-slurp-perl-9999.13.orig/debian/patches/01_picky_test.dpatch +++ libfile-slurp-perl-9999.13/debian/patches/01_picky_test.dpatch @@ -0,0 +1,67 @@ +#! /bin/sh /usr/share/dpatch/dpatch-run +## 01_picky_test.dpatch by +## +## All lines beginning with `## DP:' are a description of the patch. +## DP: make picky test::xx happy by giving exact plans + +@DPATCH@ +diff -urNad libfile-slurp-perl-9999.12~/t/error.t libfile-slurp-perl-9999.12/t/error.t +--- libfile-slurp-perl-9999.12~/t/error.t 2009-09-15 17:59:42.000000000 +1000 ++++ libfile-slurp-perl-9999.12/t/error.t 2009-09-15 17:59:42.798228715 +1000 +@@ -14,7 +14,7 @@ + my $file = 'missing/file' ; + unlink $file ; + +-plan tests => 9 ; ++plan tests => 10 ; + + my %modes = ( + 'croak' => \&test_croak, +diff -urNad libfile-slurp-perl-9999.12~/t/handle.t libfile-slurp-perl-9999.12/t/handle.t +--- libfile-slurp-perl-9999.12~/t/handle.t 2009-09-15 17:59:42.000000000 +1000 ++++ libfile-slurp-perl-9999.12/t/handle.t 2009-09-15 17:59:42.798228715 +1000 +@@ -22,7 +22,7 @@ + ) ; + + #plan( tests => 2 + @pipe_data ) ; +-plan( tests => scalar @pipe_data ) ; ++plan( tests => 1+scalar @pipe_data ) ; + + + BEGIN{ +diff -urNad libfile-slurp-perl-9999.12~/t/large.t libfile-slurp-perl-9999.12/t/large.t +--- libfile-slurp-perl-9999.12~/t/large.t 2009-09-15 17:59:42.000000000 +1000 ++++ libfile-slurp-perl-9999.12/t/large.t 2009-09-15 17:59:42.798228715 +1000 +@@ -44,7 +44,7 @@ + push @bin_data, $data ; + } + +-plan( tests => 16 * @text_data + 8 * @bin_data ) ; ++plan( tests => 1+16 * @text_data + 8 * @bin_data ) ; + + #print "# text slurp\n" ; + +diff -urNad libfile-slurp-perl-9999.12~/t/paragraph.t libfile-slurp-perl-9999.12/t/paragraph.t +--- libfile-slurp-perl-9999.12~/t/paragraph.t 2004-09-18 14:58:53.000000000 +1000 ++++ libfile-slurp-perl-9999.12/t/paragraph.t 2009-09-15 18:00:05.390531627 +1000 +@@ -23,7 +23,7 @@ + [], + ) ; + +-plan( tests => 3 * @text_data ) ; ++plan( tests => 1+3 * @text_data ) ; + + #print "# text slurp\n" ; + +diff -urNad libfile-slurp-perl-9999.12~/t/pseudo.t libfile-slurp-perl-9999.12/t/pseudo.t +--- libfile-slurp-perl-9999.12~/t/pseudo.t 2005-01-25 16:16:45.000000000 +1000 ++++ libfile-slurp-perl-9999.12/t/pseudo.t 2009-09-15 17:59:56.822426802 +1000 +@@ -5,7 +5,7 @@ + use Carp ; + use Test::More ; + +-plan( tests => 1 ) ; ++plan( tests => 2 ) ; + + my $proc_file = "/proc/$$/auxv" ; + --- libfile-slurp-perl-9999.13.orig/debian/patches/00list +++ libfile-slurp-perl-9999.13/debian/patches/00list @@ -0,0 +1,2 @@ +01_binmode +