From 1aa5f1b3c2453672e403cc45d140429747794cf6 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 27 Jan 2010 16:30:37 +0100
Subject: [PATCH] =?utf8?q?M=C3=B6glichkeit,=20den=20Dateinamen=20f=C3=BCr?=
 =?utf8?q?=20Debugmeldungen=20zu=20=C3=A4ndern.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/LXDebug.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index efa5f1245..5f5ddf216 100644
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -24,6 +24,7 @@ my $data_dumper_available;
 
 our $global_level;
 our $watch_form;
+our $file_name;
 
 BEGIN {
   eval("use Data::Dumper");
@@ -38,7 +39,7 @@ sub new {
   my $self = {};
 
   $self->{"calldepth"}  = 0;
-  $self->{"file"}       = "/tmp/lx-office-debug.log";
+  $self->{"file"}       = $file_name || "/tmp/lx-office-debug.log";
   $self->{"target"}     = FILE_TARGET;
   $self->{"level"}      = 0;
 
-- 
2.20.1