diff -Nru libfile-slurp-perl-9999.19/debian/changelog libfile-slurp-perl-9999.19/debian/changelog --- libfile-slurp-perl-9999.19/debian/changelog 2013-10-21 14:40:33.000000000 +0000 +++ libfile-slurp-perl-9999.19/debian/changelog 2013-09-24 02:13:43.000000000 +0000 @@ -1,3 +1,16 @@ +libfile-slurp-perl (9999.19-4) unstable; urgency=low + + * modified long description (closes: #724453) + + -- Alexander Zangerl Tue, 24 Sep 2013 12:13:43 +1000 + +libfile-slurp-perl (9999.19-3) unstable; urgency=low + + * changed to 3.0 quilt source format (closes: #671658) + * lifted debhelper compat level + + -- Alexander Zangerl Sun, 15 Sep 2013 23:33:19 +1000 + libfile-slurp-perl (9999.19-2) unstable; urgency=low * lifted standards version, diff -Nru libfile-slurp-perl-9999.19/debian/compat libfile-slurp-perl-9999.19/debian/compat --- libfile-slurp-perl-9999.19/debian/compat 2013-10-21 14:40:33.000000000 +0000 +++ libfile-slurp-perl-9999.19/debian/compat 2013-09-15 13:32:05.000000000 +0000 @@ -1 +1 @@ -7 +8 diff -Nru libfile-slurp-perl-9999.19/debian/control libfile-slurp-perl-9999.19/debian/control --- libfile-slurp-perl-9999.19/debian/control 2013-10-21 14:40:33.000000000 +0000 +++ libfile-slurp-perl-9999.19/debian/control 2013-09-24 02:13:15.000000000 +0000 @@ -2,7 +2,7 @@ Section: perl Priority: optional Maintainer: Alexander Zangerl -Build-Depends: debhelper (>= 7.0.0), dpatch +Build-Depends: debhelper (>= 8.0.0) Build-Depends-Indep: perl, libtest-pod-coverage-perl, libtest-pod-perl Standards-Version: 3.9.4 @@ -11,7 +11,7 @@ Depends: ${perl:Depends}, ${misc: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 + File::Slurp provides 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. diff -Nru libfile-slurp-perl-9999.19/debian/patches/00list libfile-slurp-perl-9999.19/debian/patches/00list --- libfile-slurp-perl-9999.19/debian/patches/00list 2013-10-21 14:40:33.000000000 +0000 +++ libfile-slurp-perl-9999.19/debian/patches/00list 1970-01-01 00:00:00.000000000 +0000 @@ -1,3 +0,0 @@ -01_binmode - - diff -Nru libfile-slurp-perl-9999.19/debian/patches/01-binmode libfile-slurp-perl-9999.19/debian/patches/01-binmode --- libfile-slurp-perl-9999.19/debian/patches/01-binmode 1970-01-01 00:00:00.000000000 +0000 +++ libfile-slurp-perl-9999.19/debian/patches/01-binmode 2013-09-15 13:34:45.000000000 +0000 @@ -0,0 +1,100 @@ +Author: Alexander Zangerl +Subject: binmode fix for multibyte-encoded data + +diff -urNad '--exclude=CVS' '--exclude=.svn' '--exclude=.git' '--exclude=.arch' '--exclude=.hg' '--exclude=_darcs' '--exclude=.bzr' libfile-slurp-perl-9999.19~/MANIFEST libfile-slurp-perl-9999.19/MANIFEST +--- libfile-slurp-perl-9999.19~/MANIFEST 2011-05-24 15:16:12.000000000 +1000 ++++ libfile-slurp-perl-9999.19/MANIFEST 2011-08-31 10:17:55.750011076 +1000 +@@ -33,6 +33,8 @@ + t/stringify.t + t/tainted.t + t/write_file_win32.t ++t/utf8.data ++t/utf8.t + extras/slurp_bench.pl + extras/FileSlurp_12.pm + extras/slurp_article.pod +diff -urNad '--exclude=CVS' '--exclude=.svn' '--exclude=.git' '--exclude=.arch' '--exclude=.hg' '--exclude=_darcs' '--exclude=.bzr' libfile-slurp-perl-9999.19~/META.yml libfile-slurp-perl-9999.19/META.yml +--- libfile-slurp-perl-9999.19~/META.yml 2011-08-31 10:16:49.000000000 +1000 ++++ libfile-slurp-perl-9999.19/META.yml 2011-08-31 10:17:12.501430635 +1000 +@@ -8,6 +8,7 @@ + generated_by: ExtUtils::MakeMaker version 6.42 + distribution_type: module + requires: ++ Digest::MD5: 0 + Carp: 0 + Exporter: 0 + Fcntl: 0 +diff -urNad '--exclude=CVS' '--exclude=.svn' '--exclude=.git' '--exclude=.arch' '--exclude=.hg' '--exclude=_darcs' '--exclude=.bzr' libfile-slurp-perl-9999.19~/t/utf8.data libfile-slurp-perl-9999.19/t/utf8.data +--- libfile-slurp-perl-9999.19~/t/utf8.data 1970-01-01 10:00:00.000000000 +1000 ++++ libfile-slurp-perl-9999.19/t/utf8.data 2011-08-31 10:17:12.501430635 +1000 +@@ -0,0 +1,3 @@ ++hallo grüezi blödel schaß und aus. ++Gregorian: ლრ ++Arabic: ڐڡڠڟڞ +diff -urNad '--exclude=CVS' '--exclude=.svn' '--exclude=.git' '--exclude=.arch' '--exclude=.hg' '--exclude=_darcs' '--exclude=.bzr' libfile-slurp-perl-9999.19~/t/utf8.t libfile-slurp-perl-9999.19/t/utf8.t +--- libfile-slurp-perl-9999.19~/t/utf8.t 1970-01-01 10:00:00.000000000 +1000 ++++ libfile-slurp-perl-9999.19/t/utf8.t 2011-08-31 10:17:12.501430635 +1000 +@@ -0,0 +1,40 @@ ++#!/usr/bin/perl ++use Test::More tests => 4; ++use strict; ++use File::Slurp; ++use Encode qw/encode_utf8/; ++use Digest::MD5 qw/md5_hex/; ++use Devel::Peek; ++ ++my $digest = 'e30ffef9b0c5623bc1ddd1ba73302f14'; ++ ++my $utf8 = read_file("t/utf8.data", binmode => ":utf8"); ++my $latin = read_file("t/utf8.data"); ++ ++ok( Encode::is_utf8($utf8), "Reading the data file with binmode options results in UTF8 encoded string"); ++ok(! Encode::is_utf8($latin), "Reading the data file without options correctly results in unencoded string"); ++ ++my $ctx1 = new Digest::MD5; ++ $ctx1->add(encode_utf8($utf8)); # encode_utf8 is needed, see http://search.cpan.org/dist/Digest-MD5/MD5.pm ++ ++ok($ctx1->hexdigest eq $digest, "The data from the data file we just read came through intact"); ++ ++ ++### ++# Write to a tempfile and rest ++### ++ ++my $fn_utf8 = "/tmp/file-slurp-utf8.txt"; ++ ++write_file($fn_utf8, { binmode => ":utf8" }, $utf8); ++ ++open my $fh_utf8, "$fn_utf8" or die "Could not open $fn_utf8: $!\n"; ++my $ctx2 = new Digest::MD5; ++ $ctx2->addfile($fh_utf8); ++ ++ok($ctx2->hexdigest eq $digest, "The data is written correctly with binmode options"); ++ ++unlink($fn_utf8); ++ ++ ++ +diff -urNad '--exclude=CVS' '--exclude=.svn' '--exclude=.git' '--exclude=.arch' '--exclude=.hg' '--exclude=_darcs' '--exclude=.bzr' libfile-slurp-perl-9999.19~/t/utf8.t.alt libfile-slurp-perl-9999.19/t/utf8.t.alt +--- libfile-slurp-perl-9999.19~/t/utf8.t.alt 1970-01-01 10:00:00.000000000 +1000 ++++ libfile-slurp-perl-9999.19/t/utf8.t.alt 2011-08-31 10:17:12.502430579 +1000 +@@ -0,0 +1,19 @@ ++use Test::More tests => 1; ++use strict; ++use File::Slurp; ++my $fn="/tmp/utf8.txt"; ++ ++my $data="hallo grezi bldel 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); ++ ++ ++ ++ ++ diff -Nru libfile-slurp-perl-9999.19/debian/patches/01_binmode.dpatch libfile-slurp-perl-9999.19/debian/patches/01_binmode.dpatch --- libfile-slurp-perl-9999.19/debian/patches/01_binmode.dpatch 2013-10-21 14:40:33.000000000 +0000 +++ libfile-slurp-perl-9999.19/debian/patches/01_binmode.dpatch 1970-01-01 00:00:00.000000000 +0000 @@ -1,104 +0,0 @@ -#! /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 '--exclude=CVS' '--exclude=.svn' '--exclude=.git' '--exclude=.arch' '--exclude=.hg' '--exclude=_darcs' '--exclude=.bzr' libfile-slurp-perl-9999.19~/MANIFEST libfile-slurp-perl-9999.19/MANIFEST ---- libfile-slurp-perl-9999.19~/MANIFEST 2011-05-24 15:16:12.000000000 +1000 -+++ libfile-slurp-perl-9999.19/MANIFEST 2011-08-31 10:17:55.750011076 +1000 -@@ -33,6 +33,8 @@ - t/stringify.t - t/tainted.t - t/write_file_win32.t -+t/utf8.data -+t/utf8.t - extras/slurp_bench.pl - extras/FileSlurp_12.pm - extras/slurp_article.pod -diff -urNad '--exclude=CVS' '--exclude=.svn' '--exclude=.git' '--exclude=.arch' '--exclude=.hg' '--exclude=_darcs' '--exclude=.bzr' libfile-slurp-perl-9999.19~/META.yml libfile-slurp-perl-9999.19/META.yml ---- libfile-slurp-perl-9999.19~/META.yml 2011-08-31 10:16:49.000000000 +1000 -+++ libfile-slurp-perl-9999.19/META.yml 2011-08-31 10:17:12.501430635 +1000 -@@ -8,6 +8,7 @@ - generated_by: ExtUtils::MakeMaker version 6.42 - distribution_type: module - requires: -+ Digest::MD5: 0 - Carp: 0 - Exporter: 0 - Fcntl: 0 -diff -urNad '--exclude=CVS' '--exclude=.svn' '--exclude=.git' '--exclude=.arch' '--exclude=.hg' '--exclude=_darcs' '--exclude=.bzr' libfile-slurp-perl-9999.19~/t/utf8.data libfile-slurp-perl-9999.19/t/utf8.data ---- libfile-slurp-perl-9999.19~/t/utf8.data 1970-01-01 10:00:00.000000000 +1000 -+++ libfile-slurp-perl-9999.19/t/utf8.data 2011-08-31 10:17:12.501430635 +1000 -@@ -0,0 +1,3 @@ -+hallo grüezi blödel schaß und aus. -+Gregorian: ლრ -+Arabic: ڐڡڠڟڞ -diff -urNad '--exclude=CVS' '--exclude=.svn' '--exclude=.git' '--exclude=.arch' '--exclude=.hg' '--exclude=_darcs' '--exclude=.bzr' libfile-slurp-perl-9999.19~/t/utf8.t libfile-slurp-perl-9999.19/t/utf8.t ---- libfile-slurp-perl-9999.19~/t/utf8.t 1970-01-01 10:00:00.000000000 +1000 -+++ libfile-slurp-perl-9999.19/t/utf8.t 2011-08-31 10:17:12.501430635 +1000 -@@ -0,0 +1,40 @@ -+#!/usr/bin/perl -+use Test::More tests => 4; -+use strict; -+use File::Slurp; -+use Encode qw/encode_utf8/; -+use Digest::MD5 qw/md5_hex/; -+use Devel::Peek; -+ -+my $digest = 'e30ffef9b0c5623bc1ddd1ba73302f14'; -+ -+my $utf8 = read_file("t/utf8.data", binmode => ":utf8"); -+my $latin = read_file("t/utf8.data"); -+ -+ok( Encode::is_utf8($utf8), "Reading the data file with binmode options results in UTF8 encoded string"); -+ok(! Encode::is_utf8($latin), "Reading the data file without options correctly results in unencoded string"); -+ -+my $ctx1 = new Digest::MD5; -+ $ctx1->add(encode_utf8($utf8)); # encode_utf8 is needed, see http://search.cpan.org/dist/Digest-MD5/MD5.pm -+ -+ok($ctx1->hexdigest eq $digest, "The data from the data file we just read came through intact"); -+ -+ -+### -+# Write to a tempfile and rest -+### -+ -+my $fn_utf8 = "/tmp/file-slurp-utf8.txt"; -+ -+write_file($fn_utf8, { binmode => ":utf8" }, $utf8); -+ -+open my $fh_utf8, "$fn_utf8" or die "Could not open $fn_utf8: $!\n"; -+my $ctx2 = new Digest::MD5; -+ $ctx2->addfile($fh_utf8); -+ -+ok($ctx2->hexdigest eq $digest, "The data is written correctly with binmode options"); -+ -+unlink($fn_utf8); -+ -+ -+ -diff -urNad '--exclude=CVS' '--exclude=.svn' '--exclude=.git' '--exclude=.arch' '--exclude=.hg' '--exclude=_darcs' '--exclude=.bzr' libfile-slurp-perl-9999.19~/t/utf8.t.alt libfile-slurp-perl-9999.19/t/utf8.t.alt ---- libfile-slurp-perl-9999.19~/t/utf8.t.alt 1970-01-01 10:00:00.000000000 +1000 -+++ libfile-slurp-perl-9999.19/t/utf8.t.alt 2011-08-31 10:17:12.502430579 +1000 -@@ -0,0 +1,19 @@ -+use Test::More tests => 1; -+use strict; -+use File::Slurp; -+my $fn="/tmp/utf8.txt"; -+ -+my $data="hallo grezi bldel 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); -+ -+ -+ -+ -+ diff -Nru libfile-slurp-perl-9999.19/debian/patches/series libfile-slurp-perl-9999.19/debian/patches/series --- libfile-slurp-perl-9999.19/debian/patches/series 1970-01-01 00:00:00.000000000 +0000 +++ libfile-slurp-perl-9999.19/debian/patches/series 2013-09-15 13:34:00.000000000 +0000 @@ -0,0 +1 @@ +01-binmode diff -Nru libfile-slurp-perl-9999.19/debian/rules libfile-slurp-perl-9999.19/debian/rules --- libfile-slurp-perl-9999.19/debian/rules 2013-10-21 14:40:33.000000000 +0000 +++ libfile-slurp-perl-9999.19/debian/rules 2013-09-15 13:32:14.000000000 +0000 @@ -2,9 +2,6 @@ # 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 @@ -14,12 +11,12 @@ build-arch: build-stamp build-indep: build-stamp -build-stamp: patch configure +build-stamp: configure dh_testdir $(MAKE) OPTIMIZE="-O2 -g -Wall" touch build-stamp -clean: unpatch +clean: dh_testdir dh_testroot rm -f build-stamp diff -Nru libfile-slurp-perl-9999.19/debian/source/format libfile-slurp-perl-9999.19/debian/source/format --- libfile-slurp-perl-9999.19/debian/source/format 1970-01-01 00:00:00.000000000 +0000 +++ libfile-slurp-perl-9999.19/debian/source/format 2013-10-21 14:40:33.872565154 +0000 @@ -0,0 +1 @@ +3.0 (quilt)