Allow for multiple instances of a single plugin by using plugin:0

notation


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@308 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Robert Spier 2004-09-07 05:35:16 +00:00
parent 96d66b8d46
commit ec5e23a28a

View File

@ -191,8 +191,9 @@ sub _load_plugins {
}
next;
}
my $plugin_name = $plugin;
$plugin =~ s/:\d+$//; # after this point, only used for filename
# Escape everything into valid perl identifiers
$plugin_name =~ s/([^A-Za-z0-9_\/])/sprintf("_%2x",unpack("C",$1))/eg;