Commit 65cfc71de12ccd55d349935cad33e520130f1b69 - libnet-server-perl-upstream - Codebase list

Codebase list libnet-server-perl-upstream / 65cfc71

formatting rhandom 11 years ago

1 changed file(s) with 9 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all

+9

-2

bin/net-server less more

11	11	}
12	12
13	13	my $pkg;
14		if (@ARGV && $ARGV[0] && $ARGV[0] =~ /^(\w+)$/ && ($pkg = $1) && eval { require "Net/Server/$pkg.pm" }) {
	14	if (@ARGV
	15	&& $ARGV[0]
	16	&& $ARGV[0] =~ /^(\w+)$/
	17	&& ($pkg = $1)
	18	&& eval { require "Net/Server/$pkg.pm" }
	19	) {
15	20	$pkg = "Net::Server::$pkg";
16	21	} else {
17		die "Error trying to become a Net::Server::$pkg:\n\n$@" if $pkg && grep {-e "$_/Net/Server/$pkg.pm"} @INC;
	22	if ($pkg && grep {-e "$_/Net/Server/$pkg.pm"} @INC) {
	23	die "Error trying to become a Net::Server::$pkg:\n\n$@";
	24	}
18	25	$pkg = 'Net::Server::MultiType';
19	26	}
20	27