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;
|