- Fixed the prototype problem of dir_copy() in File::Access

[devedit.git] / modules / File / Access.pm

diff --git a/modules/File/Access.pm b/modules/File/Access.pm
index e0f4e557e91163d12b252c85365567e9ea09e5f8..248eb35ee852473a87b8286058e8a7f687794568 100644 (file)
--- a/modules/File/Access.pm
+++ b/modules/File/Access.pm
@@ -7,7 +7,7 @@ package File::Access;
 # using only one command
 #
 # Author:        Patrick Canterino <patrick@patshaping.de>
-# Last modified: 2005-07-05
+# Last modified: 2005-08-01
 #
 
 use strict;
@@ -41,6 +41,10 @@ use base qw(Exporter);
 
 $has_flock = eval { local $SIG{'__DIE__'}; flock(STDOUT,0); 1 };
 
+# Predeclaration of dir_copy()
+
+sub dir_copy($$);
+
 # dir_copy()
 #
 # Copy a directory