[libfile-save-home-perl] 01/02: update replace-perlidentifier-by-string-random.patch from upstream

[Damyan Ivanov]

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

dmn pushed a commit to branch master
in repository libfile-save-home-perl.

commit c54dbff50b007e1a29e83bc4739881a84ca1f9a5
Author: Damyan Ivanov <dmn at debian.org>
Date:   Thu Oct 26 07:33:23 2017 +0000

    update replace-perlidentifier-by-string-random.patch from upstream
    
    better mimics the results of Perl::Identifier
    
    https://github.com/jkeenan/file-save-home/commit/b339966dc9f1da6a34a1664e47e7d83f98d7c47b
---
 .../replace-perlidentifier-by-string-random.patch  | 25 +++++++++++++---------
 1 file changed, 15 insertions(+), 10 deletions(-)

diff --git a/debian/patches/replace-perlidentifier-by-string-random.patch b/debian/patches/replace-perlidentifier-by-string-random.patch
index 00e2370..a0690ac 100644
--- a/debian/patches/replace-perlidentifier-by-string-random.patch
+++ b/debian/patches/replace-perlidentifier-by-string-random.patch
@@ -1,45 +1,50 @@
 Description: Replace String::PerlIdentifier by String::Random
  Use String::Random in tests instead of building a whole package
  (See #695559)
+ Taken from upstream commit b339966dc9f1da6a34a1664e47e7d83f98d7c47b
 Bug-Debian: https://bugs.debian.org/695559
 Author: Xavier Guimard <x.guimard at free.fr>
+Author: James E Keenan
 Reviewed-by: gregor herrmann <gregoa at debian.org>
 Reviewed-by: Damyan Ivanov <dmn at debian.org>
-Last-Update: 2017-10-25
+Last-Update: 2017-10-26
 Forwarded: https://rt.cpan.org/Ticket/Display.html?id=123377
 Bug: https://rt.cpan.org/Ticket/Display.html?id=123377
 
 --- a/META.yml
 +++ b/META.yml
-@@ -22,7 +22,6 @@ requires:
+@@ -22,7 +22,7 @@ requires:
    File::Path: '0'
    File::Spec: '0'
    File::Temp: '0'
 -  String::PerlIdentifier: '0'
++  String::Random: '0'
    Test::Simple: '0.44'
  version: '0.10'
  x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
 --- a/Makefile.PL
 +++ b/Makefile.PL
-@@ -14,6 +14,5 @@ WriteMakefile(
+@@ -14,6 +14,6 @@ WriteMakefile(
                       'File::Path'   => 0,
                       'Carp'         => 0,
                       'File::Temp'   => 0,
 -                     'String::PerlIdentifier' => 0,
++                     'String::Random' => 0,
                      },
  );
 --- a/t/05_pseudohome.t
 +++ b/t/05_pseudohome.t
-@@ -12,7 +12,8 @@ use_ok('File::Save::Home', qw|
+@@ -12,8 +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})) };
- 
++*make_varname = sub { return random_regex(q([_A-Za-z][_A-Za-z0-9]{9})) };
  my ($cwd, $pseudohome, $desired_dir_ref );
  $cwd = cwd();
+ 
 --- a/t/06_Win32.t
 +++ b/t/06_Win32.t
 @@ -20,7 +20,8 @@ SKIP: {
@@ -48,7 +53,7 @@ Bug: https://rt.cpan.org/Ticket/Display.html?id=123377
      use_ok('Cwd');
 -    use_ok('String::PerlIdentifier');
 +    use_ok ( 'String::Random', qw(random_regex) );
-+    *make_varname = sub { return random_regex(q([a-z]{10})) };
++    *make_varname = sub { return random_regex(q([_A-Za-z][_A-Za-z0-9]{9})) };
      
      my ($cwd, $pseudohome, $desired_dir_ref );
      $cwd = cwd();
@@ -60,7 +65,7 @@ Bug: https://rt.cpan.org/Ticket/Display.html?id=123377
  | );
 -use_ok('String::PerlIdentifier');
 +use_ok ( 'String::Random', qw(random_regex) );
-+*make_varname = sub { return random_regex(q([a-z]{10})) };
++*make_varname = sub { return random_regex(q([_A-Za-z][_A-Za-z0-9]{9})) };
  
  my ($homedir, @subdirs, $desired_dir_ref, $desired_dir, $target_ref, $target );
  ok($homedir = get_home_directory(), 'home directory is defined');
@@ -72,7 +77,7 @@ Bug: https://rt.cpan.org/Ticket/Display.html?id=123377
  | );
 -use_ok('String::PerlIdentifier');
 +use_ok ( 'String::Random', qw(random_regex) );
-+*make_varname = sub { return random_regex(q([a-z]{10})) };
++*make_varname = sub { return random_regex(q([_A-Za-z][_A-Za-z0-9]{9})) };
  
  my ($homedir, @subdirs, $desired_dir_ref, $desired_dir, $target_ref );
  ok($homedir = get_home_directory(), 'home directory is defined');
@@ -84,7 +89,7 @@ Bug: https://rt.cpan.org/Ticket/Display.html?id=123377
  | );
 -use_ok('String::PerlIdentifier');
 +use_ok ( 'String::Random', qw(random_regex) );
-+*make_varname = sub { return random_regex(q([a-z]{10})) };
++*make_varname = sub { return random_regex(q([_A-Za-z][_A-Za-z0-9]{9})) };
  use_ok('Cwd');
  
  my ($cwd, $homedir, @subdirs, $desired_dir_ref, $desired_dir );

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libfile-save-home-perl.git