Changeset 9100 for lang/perl/Punc/branches

Timestamp:

04/08/08 00:21:42 (8 months ago)

Author:

mizzy

Message:

lang/perl/Punc: Test::Perl::Critic 対策

Location:

lang/perl/Punc/branches/ssl/lib/Punc

Files:

• Master/Daemon.pm (modified) (1 diff)
• Slave/Daemon.pm (modified) (1 diff)

lang/perl/Punc/branches/ssl/lib/Punc/Master/Daemon.pm

@@ -28 +28 @@
     unless ( -d $self->{cadir} ) {
         mkpath($self->{cadir});
-        chmod 0700, $self->{cadir};
+        chmod oct('0700'), $self->{cadir};
     }
 

lang/perl/Punc/branches/ssl/lib/Punc/Slave/Daemon.pm

@@ -32 +32 @@
     unless ( -d $self->{keydir} ) {
         mkpath($self->{keydir});
-        chmod 0700, $self->{keydir};
+        chmod oct('0700'), $self->{keydir};
     }