New controlchan landed

[Fabien Tassin]

According to Russ Allbery:
> 
> That definitely looks like a Perl bug; it means that $1 is empty by the
> time Perl gets to the require in the code:
> 
> foreach (readdir CTL) {
>     next if not /^([a-z\.]+\.pl)$/ and not -f "$inn::controlprogs/$_";
>     eval { require "$inn::controlprogs/$1" };
> 
> which should be impossible.  Bleh.  Anyone else have 5.6.0 to try this
> out?

fta at ix:~ $ echo 'print "working with perl $] under $^O\\n"; 1;' > /tmp/foo.pl
fta at ix:~ $ perl -w
use strict;

$_ = "foo.pl";
if (not /^([a-z\.]+\.pl)$/ and not -f "/tmp/$_") {
  print "not found\n";     
} else {
  eval { require "/tmp/$1" };
}
^D
working with perl 5.006 under linux

-- 
Fabien Tassin -+- fta at sofaraway.org