restore umask

diff --git a/cgi-auth-flexible.pm b/cgi-auth-flexible.pm
index fb161cc8f315a5d2ea6f7c84e0bdec12725f08e6..a959cbac9b8f393b98e4bebdd3ea53349278d4d7 100644 (file)
--- a/cgi-auth-flexible.pm
+++ b/cgi-auth-flexible.pm
@@ -270,6 +270,7 @@ sub _dbopen ($) {
                                 RaiseError => 1,
                                 ShowErrorStatement => 1,
                             });
                                 RaiseError => 1,
                                 ShowErrorStatement => 1,
                             });

+        umask $u;

         die "$dsn $! ?" unless $dbh;
     }
     $v->{Dbh} = $dbh;
         die "$dsn $! ?" unless $dbh;
     }
     $v->{Dbh} = $dbh;