1
2
3
4
5
6
7
8
9
10
11
12
% perl -wE'
use utf8;
package büdel;
sub new { bless {}, shift };
package main;
use Data::Dumper;
my $büdel = büdel->new;
say Dumper $büdel
'
$VAR1 = bless( {}, 'büdel' );
1 2 3
if ( $db_plugin !~ /^[\w_]+\z/ ) { die "Invalid character in the plugin name: $db_plugin"; }
2015-12-03T11:29:30 KuerbisMacht es überhaupt Sinn, die Schreibweise des Plugins zu prüfen?