X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/4efca15bb2136c3e226eb4e372776fad95a955c9..a267dbbdd7f5d6be2248af064671c0a14cc5e1b8:/selfforum-cgi/shared/Lock/Handle.pm

diff --git a/selfforum-cgi/shared/Lock/Handle.pm b/selfforum-cgi/shared/Lock/Handle.pm
index e5a749e..3287f6f 100644
--- a/selfforum-cgi/shared/Lock/Handle.pm
+++ b/selfforum-cgi/shared/Lock/Handle.pm
@@ -44,6 +44,36 @@ sub new {
   $self;
 }
 
+### open () ####################################################################
+#
+# open a file
+#
+# Params: $mode - open mode
+#
+# Return: success code (boolean)
+#
+sub open {
+  my ($self, $mode) = @_;
+
+  return unless defined ($mode);
+
+  sysopen ($self, $self->filename, $mode);
+}
+
+### close () ###################################################################
+#
+# close a file
+#
+# Params: ~none~
+#
+# Return: success code (boolean)
+#
+sub close {
+  my $self = shift;
+
+  CORE::close $self;
+}
+
 ### sub _create_handle #########################################################
 #
 # create a globref