Help for this page

Select Code to Download


  1. or download this
                                                                          
    +                
    # Because Windows doesn't do this for us and listing all the *.t files
    # out on the command line can blow over its exec limit.
    require ExtUtils::Command;
    my @argv = ExtUtils::Command::expand_wildcards(@ARGV);
    
  2. or download this
    my $wild_regex = $Is_VMS ? '*%' : '*?';
    sub expand_wildcards
    {
     @ARGV = map(/[$wild_regex]/o ? glob($_) : $_,@ARGV);
    }