view release on metacpan or  search on metacpan

t/05-capture_to_file.t  view on Meta::CPAN

    if (not is $err, '', "No error looking for device") {
        SKIP: {
	    skip $err, 3
	};
	exit
    };
}

diag "Using device '$dev'";
SKIP: {
    if ($ENV{HTTP_PROXY}) {
        skip "Proxy settings detected - sniffing will not work", 3;
    };

    my $failed;

    # This version of fork() works even on Win32:
    if (fork()) {
      alarm 65; # Emergency breakout
      eval {
          $s->run($dev,"((dst www.cpan.org || src www.cpan.org)) && (tcp port 80)", capture_file => $dumpfile);