Bug 33059: Fix capitalizatoin of AV sample category descriptions

[koha-ffzg.git] / fix-perl-path.PL

diff --git a/fix-perl-path.PL b/fix-perl-path.PL
index c36381d..f9db358 100644 (file)
--- a/fix-perl-path.PL
+++ b/fix-perl-path.PL
@@ -20,7 +20,7 @@ use ExtUtils::MakeMaker::Config;
 use Tie::File;
 
 my $basedir = (shift);
-my $DEBUG = exists $ENV{'DEBUG'} ? $ENV{'DEBUG'} : 0;
+my $DEBUG = 0;
 
 $DEBUG = 1 if $basedir eq 'test';
 
@@ -77,8 +77,8 @@ sub fixshebang{
             # to make it writable.  Note that stat and chmod
             # (the Perl functions) should work on Win32
             my $old_perm;
-            $old_perm = (stat $pathfile)[2] & 07777;
-            my $new_perm = $old_perm | 0200;
+            $old_perm = (stat $pathfile)[2] & oct(7777);
+            my $new_perm = $old_perm | oct(200);
             chmod $new_perm, $pathfile;
 
             # tie the file -- note that we're explicitly setting the line (record)