Commit 65984049ed7015cf5192b995c099459cbe4669fb - libnet-server-perl-upstream

report errors better upon failure to load an existing module rhandom 11 years ago

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

-1

bin/net-server less more

0		#!/usr/bin/perl
	0	#!/usr/bin/env perl
1	1
2	2	package net_server;
3	3

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