Package: libscrappy-perl / 0.94112090-2

access-rights-octal.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
Description: scrappy creates files with interesting permissions like --w----r-T
 File::Util expects a bitmask which should be given in octal mode.
 Let's do this.
 Additionally, make the created scripts executable.
Origin: vendor
Bug-Debian: http://bugs.debian.org/751138
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2014-06-22
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=96639

--- a/lib/Scrappy/Action/Generate.pm
+++ b/lib/Scrappy/Action/Generate.pm
@@ -21,7 +21,7 @@
     File::Util->new->make_dir(join("_", $script_name, "logs"));
     File::Util->new->write_file(
         'file'    => "$script_name.pl",
-        'bitmask' => 644,
+        'bitmask' => oct 755,
         'content' => strip tt q{
         #!/usr/bin/perl
         
@@ -79,7 +79,7 @@
 
     File::Util->new->write_file(
         'file' => -d $object ? "$object/lib/$path.pm" : "lib/$path.pm",
-        'bitmask' => 644,
+        'bitmask' => oct 644,
         'content' => strip tt q{
         package [% project %];
 
@@ -115,7 +115,7 @@
     File::Util->new->make_dir('logs');
     File::Util->new->write_file(
         'file'    => "$object/" . lc $object,
-        'bitmask' => 644,
+        'bitmask' => oct 644,
         'content' => strip tt q{
         #!/usr/bin/perl
         
@@ -160,7 +160,7 @@
 
     File::Util->new->write_file(
         'file'    => "$object/lib/$path.pm",
-        'bitmask' => 644,
+        'bitmask' => oct 644,
         'content' => strip tt q{
         package [% project %];
 
@@ -187,7 +187,7 @@
 
     File::Util->new->write_file(
         'file'    => "$object/lib/$path/Root.pm",
-        'bitmask' => 644,
+        'bitmask' => oct 644,
         'content' => strip tt q{
         package [% project %]::Root;
 
@@ -208,7 +208,7 @@
 
     File::Util->new->write_file(
         'file'    => "$object/lib/$path/List.pm",
-        'bitmask' => 644,
+        'bitmask' => oct 644,
         'content' => strip tt q{
         package [% project %]::List;
 
@@ -229,7 +229,7 @@
 
     File::Util->new->write_file(
         'file'    => "$object/lib/$path/Page.pm",
-        'bitmask' => 644,
+        'bitmask' => oct 644,
         'content' => strip tt q{
         package [% project %]::Page;