From 74b3749525684f5b0ac743e5003ad1345ffb5753 Mon Sep 17 00:00:00 2001
From: Erwin Lansing <erwin@FreeBSD.org>
Date: Sun, 5 Oct 2003 10:34:13 +0000
Subject: Update to 1.15a

---
 net/p5-Net-SNPP/files/patch-lib-Net-SNPP-Server.pm | 28 ++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 net/p5-Net-SNPP/files/patch-lib-Net-SNPP-Server.pm

(limited to 'net/p5-Net-SNPP/files/patch-lib-Net-SNPP-Server.pm')

diff --git a/net/p5-Net-SNPP/files/patch-lib-Net-SNPP-Server.pm b/net/p5-Net-SNPP/files/patch-lib-Net-SNPP-Server.pm
new file mode 100644
index 000000000000..4ddc234324fc
--- /dev/null
+++ b/net/p5-Net-SNPP/files/patch-lib-Net-SNPP-Server.pm
@@ -0,0 +1,28 @@
+--- lib/Net/SNPP/Server.pm.orig	Fri Oct  3 15:46:55 2003
++++ lib/Net/SNPP/Server.pm	Sun Oct  5 12:29:05 2003
+@@ -1,6 +1,5 @@
+ package Net::SNPP::Server;
+ use strict;
+-use warnings;
+ use Socket;
+ use IO::Handle;
+ use Net::Cmd;
+@@ -415,7 +414,6 @@
+         # 4.3.6 HELP (optional) ---------------------------------------------- #
+         elsif ( $user_cmd eq 'HELP' ) {
+             {
+-                no warnings; # so we can use <DATA>
+                 while (<DATA>) { $client->command( $_ ) }
+                 $client->command( "250 End of Help Information" );
+             }
+@@ -573,7 +571,9 @@
+     my @pids = (); # pids to merge before exit
+ 
+ 	# create a pipe for communication from child back to this process
+-	our( $rp, $wp ) = ( IO::Handle->new(), IO::Handle->new() );
++	use vars qw($rp $wp);
++	$rp = IO::Handle->new();
++	$wp = IO::Handle->new();
+ 	pipe( $rp, $wp )
+ 	    || die "could not create READ/WRITE pipes";
+     $wp->autoflush(1);
-- 
cgit v1.2.3