|
|
|
|
--- Net-Server-0.87/lib/Net/Server.pm.dist Tue Apr 22 14:38:13 2003
|
|
|
|
|
+++ Net-Server-0.87/lib/Net/Server.pm Tue Apr 22 14:39:16 2003
|
|
|
|
|
@@ -402,7 +402,7 @@
|
|
|
|
|
$self->log(1,"Group Not Defined. Defaulting to EGID '$)'\n");
|
|
|
|
|
$prop->{group} = $);
|
|
|
|
|
}else{
|
|
|
|
|
- if( $prop->{group} =~ /^(\w+( \w+)*)$/ ){
|
|
|
|
|
+ if( $prop->{group} =~ /^([\w\-]+( [\w\-]+)*)$/ ){
|
|
|
|
|
$prop->{group} = eval{ get_gid( $1 ) };
|
|
|
|
|
$self->fatal( $@ ) if $@;
|
|
|
|
|
}else{
|
|
|
|
|
@@ -416,7 +416,7 @@
|
|
|
|
|
$self->log(1,"User Not Defined. Defaulting to EUID '$>'\n");
|
|
|
|
|
$prop->{user} = $>;
|
|
|
|
|
}else{
|
|
|
|
|
- if( $prop->{user} =~ /^(\w+)$/ ){
|
|
|
|
|
+ if( $prop->{user} =~ /^([\w\-]+)$/ ){
|
|
|
|
|
$prop->{user} = eval{ get_uid( $1 ) };
|
|
|
|
|
$self->fatal( $@ ) if $@;
|
|
|
|
|
}else{
|
|
|
|
|
Index: Net-Pcap-0.05/Makefile.PL
|
|
|
|
|
--- Net-Pcap-0.05/Makefile.PL.orig 2004-02-28 23:41:40.000000000 +0100
|
|
|
|
|
+++ Net-Pcap-0.05/Makefile.PL 2004-02-28 23:45:17.000000000 +0100
|
|
|
|
|
@@ -10,7 +10,8 @@
|
|
|
|
|
'NAME' => 'Net::Pcap',
|
|
|
|
|
'DISTNAME' => 'Net-Pcap',
|
|
|
|
|
'VERSION_FROM' => 'Pcap.pm',
|
|
|
|
|
- 'LIBS' => ['-lpcap'],
|
|
|
|
|
+ 'INC' => '-I@l_prefix@/include',
|
|
|
|
|
+ 'LIBS' => ['-L@l_prefix@/lib -lpcap'],
|
|
|
|
|
dist => {
|
|
|
|
|
'COMPRESS' => "gzip -9f",
|
|
|
|
|
'SUFFIX' => "gz"
|
|
|
|
|
Index: Net-Pcap-0.05/Pcap.xs
|
|
|
|
|
--- Net-Pcap-0.05/Pcap.xs.orig 2003-06-14 14:15:18.000000000 +0200
|
|
|
|
|
+++ Net-Pcap-0.05/Pcap.xs 2004-02-28 23:43:47.000000000 +0100
|
|
|
|
|
@@ -18,7 +18,7 @@
|
|
|
|
|
#include "EXTERN.h"
|
|
|
|
|
#include "perl.h"
|
|
|
|
|
#include "XSUB.h"
|
|
|
|
|
-#include <pcap.h>
|
|
|
|
|
+#include "pcap.h"
|
|
|
|
|
|
|
|
|
|
#ifdef __cplusplus
|
|
|
|
|
}
|
