# peg_ini.pl
    $Peg_longopt{'ignore-dir'} = sub {
        my $argv_ref = shift;
        my $dir_name = shift @$argv_ref or die;
        unshift @$argv_ref, "-p", qq{ \$File !~ m:(^|/)$dir_name/: };
    };