diff options
Diffstat (limited to 'net/p5-Spread-Session/files')
-rw-r--r-- | net/p5-Spread-Session/files/patch-Makefile.PL | 13 | ||||
-rw-r--r-- | net/p5-Spread-Session/files/patch-Session.pm | 30 |
2 files changed, 43 insertions, 0 deletions
diff --git a/net/p5-Spread-Session/files/patch-Makefile.PL b/net/p5-Spread-Session/files/patch-Makefile.PL new file mode 100644 index 000000000000..dad8489981d9 --- /dev/null +++ b/net/p5-Spread-Session/files/patch-Makefile.PL @@ -0,0 +1,13 @@ +--- Makefile.PL.orig Mon Mar 25 08:47:50 2002 ++++ Makefile.PL Wed Apr 3 01:03:40 2002 +@@ -4,10 +4,6 @@ + WriteMakefile( + 'NAME' => 'Spread::Session', + 'VERSION_FROM' => 'Session.pm', # finds $VERSION +- 'PREREQ_PM' => { +- Log::Channel => 0.4, +- Event => 0.85, # for test cases +- }, + ($] >= 5.005 ? ## Add these new keywords supported since 5.005 + (ABSTRACT_FROM => 'Session.pm', # retrieve abstract from module + AUTHOR => 'Jason W. May <jmay@pobox.com>') : ()), 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->(@_) } + } + |