## 
# This isn't part of the core logic: we're just trying to make regexp
# generation easy for admins with weak regex chops
# The original use case used regexps to select files of interest.
my @name_patterns = qw { *.conf$ ^ho ^net };
my @name_regexps = map { s/\./\\./g;
            s/\*/(\.+)?/g;
            qr {$_}; } @name_patterns;