debian/0000755000000000000000000000000012161336760007173 5ustar debian/rules0000755000000000000000000000042112161336760010250 0ustar #!/usr/bin/make -f PACKAGE = $(shell dh_listpackages) TMP = $(CURDIR)/debian/$(PACKAGE) BUILDHOME = $(CURDIR)/debian/build %: dh $@ override_dh_auto_test: mkdir -p $(BUILDHOME) HOME=$(BUILDHOME) dh_auto_test override_dh_clean: dh_clean rm -rf $(BUILDHOME) debian/control0000644000000000000000000000216712161336760010604 0ustar Source: libfile-save-home-perl Section: perl Priority: optional Maintainer: Debian Perl Group Uploaders: Xavier Guimard Build-Depends: debhelper (>= 8) Build-Depends-Indep: libstring-random-perl, perl Standards-Version: 3.9.4 Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/libfile-save-home-perl.git Vcs-Git: git://anonscm.debian.org/pkg-perl/packages/libfile-save-home-perl.git Homepage: https://metacpan.org/release/File-Save-Home/ Package: libfile-save-home-perl Architecture: all Depends: ${misc:Depends}, ${perl:Depends} Description: Perl extension to place file safely under user home directory File::Save::Home provides several functions which try to determine whether you can, indeed, safely create directories and files underneath a user's home directory. Among other things, if you are placing a file in such a location only temporarily -- say, for testing purposes -- you can temporarily hide any already existing file with the same name and restore it to its original name and timestamps when you are done. debian/source/0000755000000000000000000000000012161336760010473 5ustar debian/source/format0000644000000000000000000000001412161336760011701 0ustar 3.0 (quilt) debian/changelog0000644000000000000000000000163012161336760011045 0ustar libfile-save-home-perl (0.09-2) unstable; urgency=low * Team upload. * Set HOME for test suite in debian/rules. (Closes: #713241) -- gregor herrmann Sat, 22 Jun 2013 17:08:19 +0200 libfile-save-home-perl (0.09-1) unstable; urgency=low * Team upload. [ Salvatore Bonaccorso ] * Change Vcs-Git to canonical URI (git://anonscm.debian.org) * Change search.cpan.org based URIs to metacpan.org based URIs [ gregor herrmann ] * New upstream release. * Refresh replace-perlidentifier-by-string-random.patch. * Drop spelling patch, applied upstream. -- gregor herrmann Sun, 17 Feb 2013 18:08:49 +0100 libfile-save-home-perl (0.8-1) unstable; urgency=low * Initial Release (Closes: #695558) * Replace the use of String::PerlIdentifier in test by String::Random (See: #695559) -- Xavier Guimard Fri, 14 Dec 2012 22:22:39 +0100 debian/compat0000644000000000000000000000000212161336760010371 0ustar 8 debian/patches/0000755000000000000000000000000012161336760010622 5ustar debian/patches/replace-perlidentifier-by-string-random.patch0000644000000000000000000000532412161336760021457 0ustar Description: Replace String::PerlIdentifier by String::Random Include String::PerlIdentifier in test instead of building a whole package (See #695559) Bug-Debian: http://bugs.debian.org/695559 Forwarded: no Author: Xavier Guimard Reviewed-by: gregor herrmann Last-Update: 2013-02-17 --- a/META.yml +++ b/META.yml @@ -22,6 +22,5 @@ requires: File::Path: 0 File::Spec: 0 File::Temp: 0 - String::PerlIdentifier: 0 Test::Simple: 0.44 version: 0.09 --- a/Makefile.PL +++ b/Makefile.PL @@ -14,6 +14,5 @@ WriteMakefile( 'File::Path' => 0, 'Carp' => 0, 'File::Temp' => 0, - 'String::PerlIdentifier' => 0, }, ); --- a/t/05_pseudohome.t +++ b/t/05_pseudohome.t @@ -12,7 +12,8 @@ use_ok('File::Save::Home', qw| | ); use_ok('File::Temp', qw| tempdir |); use_ok('Cwd'); -use_ok('String::PerlIdentifier'); +use_ok ( 'String::Random', qw(random_regex) ); +*make_varname = sub { return random_regex(q([a-z]{10})) }; my ($cwd, $pseudohome, $desired_dir_ref ); $cwd = cwd(); --- a/t/06_Win32.t +++ b/t/06_Win32.t @@ -20,7 +20,8 @@ SKIP: { | ); use_ok('File::Temp', qw| tempdir |); use_ok('Cwd'); - use_ok('String::PerlIdentifier'); + use_ok ( 'String::Random', qw(random_regex) ); + *make_varname = sub { return random_regex(q([a-z]{10})) }; my ($cwd, $pseudohome, $desired_dir_ref ); $cwd = cwd(); --- a/t/03_placefile.t +++ b/t/03_placefile.t @@ -12,7 +12,8 @@ use_ok('File::Save::Home', qw| conceal_target_file reveal_target_file | ); -use_ok('String::PerlIdentifier'); +use_ok ( 'String::Random', qw(random_regex) ); +*make_varname = sub { return random_regex(q([a-z]{10})) }; my ($homedir, @subdirs, $desired_dir_ref, $desired_dir, $target_ref, $target ); ok($homedir = get_home_directory(), 'home directory is defined'); --- a/t/02_multilevel.t +++ b/t/02_multilevel.t @@ -12,7 +12,8 @@ use_ok('File::Save::Home', qw| conceal_target_file reveal_target_file | ); -use_ok('String::PerlIdentifier'); +use_ok ( 'String::Random', qw(random_regex) ); +*make_varname = sub { return random_regex(q([a-z]{10})) }; my ($homedir, @subdirs, $desired_dir_ref, $desired_dir, $target_ref ); ok($homedir = get_home_directory(), 'home directory is defined'); --- a/t/01_test.t +++ b/t/01_test.t @@ -10,7 +10,8 @@ use_ok('File::Save::Home', qw| make_subhome_directory restore_subhome_directory_status | ); -use_ok('String::PerlIdentifier'); +use_ok ( 'String::Random', qw(random_regex) ); +*make_varname = sub { return random_regex(q([a-z]{10})) }; use_ok('Cwd'); my ($cwd, $homedir, @subdirs, $desired_dir_ref, $desired_dir ); debian/patches/series0000644000000000000000000000005612161336760012040 0ustar replace-perlidentifier-by-string-random.patch debian/copyright0000644000000000000000000000205112161336760011124 0ustar Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Upstream-Name: File-Save-Home Source: https://metacpan.org/release/File-Save-Home/ Upstream-Contact: James E Keenan Files: * Copyright: 2005-2006, James E Keenan License: Artistic or GPL-1+ Files: debian/* Copyright: 2012, Xavier Guimard License: Artistic or GPL-1+ License: Artistic This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, which comes with Perl. . On Debian systems, the complete text of the Artistic License can be found in `/usr/share/common-licenses/Artistic'. License: GPL-1+ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. . On Debian systems, the complete text of version 1 of the GNU General Public License can be found in `/usr/share/common-licenses/GPL-1'. debian/watch0000644000000000000000000000017212161336760010224 0ustar version=3 https://metacpan.org/release/File-Save-Home/ .*/File-Save-Home-v?(\d[\d.-]*)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$