From ee4e2f2a0fcccef6d824e3d2cd05ce15baa2fe94 Mon Sep 17 00:00:00 2001
From: Charles Mauch <cmauch@gmail.com>
Date: Mon, 18 Sep 2006 17:52:59 +0000
Subject: [PATCH] permissions definition incorrect, defaults are fine anyway.

---
 modules/backlinkage.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/modules/backlinkage.pl b/modules/backlinkage.pl
index 3a5417d3..f7cc73f0 100644
--- a/modules/backlinkage.pl
+++ b/modules/backlinkage.pl
@@ -21,7 +21,7 @@
 
 use MLDBM qw( DB_File Storable );
 
-$ModulesDescription .= '<p>$Id: backlinkage.pl,v 1.1 2006/09/12 17:25:30 xterminus Exp $</p>';
+$ModulesDescription .= '<p>$Id: backlinkage.pl,v 1.2 2006/09/18 17:52:59 xterminus Exp $</p>';
 
 push(@MyAdminCode, \&BacklinksMenu);
 
@@ -39,8 +39,8 @@ sub BuildBacklinkDatabase {
     print GetHttpHeader('text/plain');
     my $backfile = $DataDir . '/backlinks.db';
     unlink $backfile; # Remove old database
-    tie %backhash, 'MLDBM', $backfile, O_CREAT|O_RDWR, 0644 or die "Cannot open file $backfile $!\n";
-    
+    tie %backhash, 'MLDBM', $backfile or die "Cannot open file $backfile $!\n";
+
     foreach my $name (AllPagesList()) {
         OpenPage($name);
         my $page = $OpenPageName;