diff options
Diffstat (limited to 'net/p5-Spread-Session/files/patch-Session.pm')
-rw-r--r-- | net/p5-Spread-Session/files/patch-Session.pm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/net/p5-Spread-Session/files/patch-Session.pm b/net/p5-Spread-Session/files/patch-Session.pm new file mode 100644 index 000000000000..4afd3d9bd0d4 --- /dev/null +++ b/net/p5-Spread-Session/files/patch-Session.pm @@ -0,0 +1,30 @@ +--- Session.pm.orig Sat Apr 6 16:12:24 2002 ++++ Session.pm Sat Apr 6 16:13:03 2002 +@@ -46,7 +46,6 @@ + use strict; + #use warnings; + use Carp; +-use Log::Channel; + use Spread; + + use vars qw($VERSION); +@@ -55,9 +54,17 @@ + my $DEFAULT_TIMEOUT = 5; + + BEGIN { +- my $log = new Log::Channel; ++ my ($log, $msglog); ++ if (defined eval "require Log::Channel") { ++ $log = new Log::Channel; ++ $msglog = new Log::Channel("message"); ++ } else { ++ # no log::channel, disable all the logging ++ $log = sub {}; ++ $msglog = sub {}; ++ } ++ + sub sslog { $log->(@_) } +- my $msglog = new Log::Channel("message"); + sub msglog { $msglog->(@_) } + } + |