made the code more readable (splittet sub cut_tail into several subs, added comments)

[selfforum.git] / selfforum-cgi / shared / Lock / Handle.pm

diff --git a/selfforum-cgi/shared/Lock/Handle.pm b/selfforum-cgi/shared/Lock/Handle.pm
index e5a749e94e790bfa9cfa1d431305dec862f767e5..3287f6f179076dfbb994b89f4fd090b41dee3c96 100644 (file)
--- 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