| #!/usr/bin/perl -T | |
| # Wrapper around test until perlcritic fixes bug running under -T | |
| # sa_t_init handles a number of necessary cross-platform initialization that is necessary | |
| # even though this wrapper doesn't need most things that are also in there | |
| use lib '.'; use lib 't'; | |
| use SATest; sa_t_init('perlcritic'); | |
| use strict; | |
| use warnings; | |
| -d "t" && "$^X t/perlcritic.pl" =~ /(.*)/ || | |
| "$^X perlcritic.pl" =~ /(.*)/; | |
| exec($1); |