made perl 5.005 compilant

[selfforum.git] / selfforum-cgi / shared / Arc / Archive.pm

diff --git a/selfforum-cgi/shared/Arc/Archive.pm b/selfforum-cgi/shared/Arc/Archive.pm
index 9e6694b478acb83d614f230bddb3130b2391b052..9e3ccb911d87351814b3f1db4fcfc6cda35d9c5c 100644 (file)
--- a/selfforum-cgi/shared/Arc/Archive.pm
+++ b/selfforum-cgi/shared/Arc/Archive.pm
@@ -181,9 +181,9 @@ sub cut_tail ($) {
                       my $monthpath = $monthdir . '/';
                       my $file = $monthpath . "t$tid.xml";
 
-                      mkdir $yeardir unless (-d $yeardir);
+                      mkdir $yeardir, 0777 unless (-d $yeardir);
                       if (-d $yeardir) {
-                        mkdir $monthdir unless (-d $monthdir);
+                        mkdir $monthdir, 0777 unless (-d $monthdir);
                         if (-d $monthdir) {
                           save_file (
                             $file,