diff options
| author | lawrance <lawrance@FreeBSD.org> | 2005-09-06 12:28:01 +0800 |
|---|---|---|
| committer | lawrance <lawrance@FreeBSD.org> | 2005-09-06 12:28:01 +0800 |
| commit | d8799f8104a5e0f4da2c8f5f9f25397d4ba750b4 (patch) | |
| tree | 3df4c2fb649dde9951536fa2b124edf763c56bfe /net/p5-Net-Server | |
| parent | d6d2b1a74a3753a462087ea138b4b595a9590a1e (diff) | |
| download | freebsd-ports-gnome-d8799f8104a5e0f4da2c8f5f9f25397d4ba750b4.tar.gz freebsd-ports-gnome-d8799f8104a5e0f4da2c8f5f9f25397d4ba750b4.tar.zst freebsd-ports-gnome-d8799f8104a5e0f4da2c8f5f9f25397d4ba750b4.zip | |
Fix a bug which causes Net::Server based programs to break when restarted
with the HUP signal.
Submitter sent a patch upstream as rt.cpan.org ticket 14155
PR: ports/84904
Submitted by: Lupe Christoph <lupe@lupe-christoph.de>
(maintainer of munin-node, which is affected by this bug)
Diffstat (limited to 'net/p5-Net-Server')
| -rw-r--r-- | net/p5-Net-Server/Makefile | 1 | ||||
| -rw-r--r-- | net/p5-Net-Server/files/patch-lib_Net_Server.pm | 12 |
2 files changed, 13 insertions, 0 deletions
diff --git a/net/p5-Net-Server/Makefile b/net/p5-Net-Server/Makefile index 4160da301795..9e48b1f3ba45 100644 --- a/net/p5-Net-Server/Makefile +++ b/net/p5-Net-Server/Makefile @@ -7,6 +7,7 @@ PORTNAME= Net-Server PORTVERSION= 0.88 +PORTREVISION= 1 CATEGORIES= net perl5 MASTER_SITES= http://www.seamons.com/net_server/ \ ${MASTER_SITE_PERL_CPAN} diff --git a/net/p5-Net-Server/files/patch-lib_Net_Server.pm b/net/p5-Net-Server/files/patch-lib_Net_Server.pm new file mode 100644 index 000000000000..df103729d5cf --- /dev/null +++ b/net/p5-Net-Server/files/patch-lib_Net_Server.pm @@ -0,0 +1,12 @@ +Patch for rt.cpan.org ticket 14155 +--- lib/Net/Server.pm.orig Tue Sep 6 13:50:52 2005 ++++ lib/Net/Server.pm Tue Sep 6 13:50:59 2005 +@@ -49,7 +49,7 @@ + + ### save for a HUP + my $script = $0; +- $script = $ENV{'PWD'} .'/'. $0 if $ENV{'PWD'}; ++ $script = $ENV{'PWD'} .'/'. $0 if exists $ENV{'PWD'} and $script !~ m(^/); + $self->{server}->{commandline} = [ $script, @ARGV ] + unless defined $self->{server}->{commandline}; + |