Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Avoid using octal number.

  This will silence the perlcritic warning.
  • Loading branch information...
commit a9814e12ef7fdcec3fab354f821885ff55be4914 1 parent 815184d
@skx authored
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'} : $!");
Please sign in to comment.
Something went wrong with that request. Please try again.