1 2#!/usr/bin/perl 3 (-d "../t") and chdir ".."; 4 system( "$^X", "-T", "t/db_based_whitelist_ips.t", 5 "--override", "run_long_tests", "1", @ARGV); 6 ($? >> 8 == 0) or die "exec failed"; 7 8 9