[libdata-printer-perl] 01/02: Add no_homedir.patch to suppress a warning when $HOME is not set

[Florian Schlichting]

This is an automated email from the git hooks/post-receive script.

fsfs pushed a commit to branch master
in repository libdata-printer-perl.

commit 6a22c2650406efb10477dbe878201a902a872fde
Author: Florian Schlichting <fsfs at debian.org>
Date:   Wed Apr 27 22:59:54 2016 +0200

    Add no_homedir.patch to suppress a warning when $HOME is not set
---
 debian/changelog                | 14 +++++---------
 debian/patches/no_homedir.patch | 15 +++++++++++++++
 debian/patches/series           |  1 +
 3 files changed, 21 insertions(+), 9 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index e8efe39..5a2764a 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,11 +1,4 @@
-libdata-printer-perl (0.38-1) UNRELEASED; urgency=medium
-
-  PROBLEM: autopkgtest fails:
-    # Use of uninitialized value in subroutine entry at /usr/share/perl5/Data/Printer.pm line 1049.
-    ok 1 - /usr/bin/perl -w -M"Data::Printer" -e 1 2>&1 exited successfully
-    not ok 2 - /usr/bin/perl -w -M"Data::Printer" -e 1 2>&1 produced no output
-    Dubious, test returned 1 (wstat 256, 0x100)
-  needs $HOME ...
+libdata-printer-perl (0.38-1) unstable; urgency=medium
 
   * Team upload.
 
@@ -17,7 +10,10 @@ libdata-printer-perl (0.38-1) UNRELEASED; urgency=medium
   * Declare compliance with Debian Policy 3.9.7.
   * Bump debhelper compatibility level to 9.
 
- -- gregor herrmann <gregoa at debian.org>  Fri, 12 Feb 2016 21:24:47 +0100
+  [ Florian Schlichting ]
+  * Add no_homedir.patch to suppress a warning when $HOME is not set
+
+ -- Florian Schlichting <fsfs at debian.org>  Wed, 27 Apr 2016 22:59:21 +0200
 
 libdata-printer-perl (0.36-1) unstable; urgency=low
 
diff --git a/debian/patches/no_homedir.patch b/debian/patches/no_homedir.patch
new file mode 100644
index 0000000..2cfd066
--- /dev/null
+++ b/debian/patches/no_homedir.patch
@@ -0,0 +1,15 @@
+Description: fix a 'Use of uninitialized value' warning when $HOME is unset
+Author: Florian Schlichting <fsfs at debian.org>
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=103206
+
+--- a/lib/Data/Printer.pm
++++ b/lib/Data/Printer.pm
+@@ -1046,7 +1046,7 @@
+ 
+     my $file = exists $args->{rc_file}    ? $args->{rc_file}
+              : exists $ENV{DATAPRINTERRC} ? $ENV{DATAPRINTERRC}
+-             : File::Spec->catfile(File::HomeDir->my_home,'.dataprinter');
++             : File::Spec->catfile(File::HomeDir->my_home//'','.dataprinter');
+ 
+     return unless -e $file;
+ 
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..55f6671
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+no_homedir.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdata-printer-perl.git