* lib/Qpsmtpd.pm

(_load_plugins): split plugin_line using awk style "magic" whitespace


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@399 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2005-03-25 12:30:37 +00:00
parent e331f6b248
commit f72647a44c

View File

@ -190,7 +190,7 @@ sub _load_plugins {
my @ret; my @ret;
for my $plugin_line (@plugins) { for my $plugin_line (@plugins) {
my ($plugin, @args) = split /\s+/, $plugin_line; my ($plugin, @args) = split ' ', $plugin_line;
if (lc($plugin) eq '$include') { if (lc($plugin) eq '$include') {
my $inc = shift @args; my $inc = shift @args;