[libscrappy-perl] 01/03: Add patch to fix permissions of created files.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libscrappy-perl.

commit 3e99da36aa0e920c4e2686f2ecf705705bab998c
Author: gregor herrmann <gregoa at debian.org>
Date:   Sun Jun 22 18:49:23 2014 +0200

    Add patch to fix permissions of created files.
    
    Thanks: Jonas Smedegaard for the bug report.
    Closes: #751138
---
 debian/patches/access-rights-octal.patch | 75 ++++++++++++++++++++++++++++++++
 debian/patches/series                    |  1 +
 2 files changed, 76 insertions(+)

diff --git a/debian/patches/access-rights-octal.patch b/debian/patches/access-rights-octal.patch
new file mode 100644
index 0000000..cdc3900
--- /dev/null
+++ b/debian/patches/access-rights-octal.patch
@@ -0,0 +1,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 at 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;
+ 
diff --git a/debian/patches/series b/debian/patches/series
index 2dc2962..f6b0846 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,4 @@
 spelling-errors.patch
 moose-initializers.patch
 scraper-control.patch
+access-rights-octal.patch

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