Package: libfile-save-home-perl / 0.09-2

replace-perlidentifier-by-string-random.patch Patch series | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
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 <x.guimard@free.fr>
Reviewed-by: gregor herrmann <gregoa@debian.org>
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 );