libdir can be empty
authorJoey Hess <joey@kodama.kitenet.net>
Sun, 27 Jul 2008 23:20:14 +0000 (19:20 -0400)
committerJoey Hess <joey@kodama.kitenet.net>
Sun, 27 Jul 2008 23:20:14 +0000 (19:20 -0400)
IkiWiki.pm

index 0746ef24ba36c00b6b7d3b340440f611609f622e..ad41215c1e31dd2964312a6f6a48d2aa6508920e 100644 (file)
@@ -433,14 +433,14 @@ sub listplugins () { #{{{
        my %ret;
 
        foreach my $dir (@INC, $config{libdir}) {
-               next unless defined $dir;
+               next unless defined $dir && length $dir;
                foreach my $file (glob("$dir/IkiWiki/Plugin/*.pm")) {
                        my ($plugin)=$file=~/.*\/(.*)\.pm$/;
                        $ret{$plugin}=1;
                }
        }
        foreach my $dir ($config{libdir}, "$installdir/lib/ikiwiki") {
-               next unless defined $dir;
+               next unless defined $dir && length $dir;
                foreach my $file (glob("$dir/plugins/*")) {
                        $ret{basename($file)}=1 if -x $file;
                }
@@ -450,7 +450,7 @@ sub listplugins () { #{{{
 } #}}}
 
 sub loadplugins () { #{{{
-       if (defined $config{libdir}) {
+       if (defined $config{libdir} && length $config{libdir}) {
                unshift @INC, possibly_foolish_untaint($config{libdir});
        }