Skip to content
Browse files

Avoid using octal number.

  This will silence the perlcritic warning.
  • Loading branch information...
1 parent 815184d commit a9814e12ef7fdcec3fab354f821885ff55be4914 @skx committed Dec 28, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 since
View
2 since
@@ -82,7 +82,7 @@ if ( !scalar(@ARGV) )
# Create the database, using a tie.
#
my %states;
-tie( %states, 'NDBM_File', $config{ 'db' }, O_CREAT | O_RDWR, 0660 ) or
+tie( %states, 'NDBM_File', $config{ 'db' }, O_CREAT | O_RDWR, oct(660) ) or
die("Error tying the database $config{'db'} : $!");

0 comments on commit a9814e1

Please sign in to comment.
Something went wrong with that request. Please try again.