libtransport.git Files · msvc-deps/curl/tests/libtest/notexists.pl

Files @ e5aab1415d9e

Branch filter:

Location: libtransport.git/msvc-deps/curl/tests/libtest/notexists.pl

e5aab1415d9e 329 B application/x-perl Show Annotation Show as Raw Download as Raw

HanzZ

Libtransport: Support for bouncer mode in case of rawxml. Support for more resources in Buddy class.

#!/usr/bin/env perl
# Check that given arguments do not exist on filesystem.
my $code = 0;
if ($#ARGV < 0) {
    print "Usage: $0 file1 [fileN]\n";
    exit 2;
}
while (@ARGV) {
    my $fname = shift @ARGV;
    if (-e $fname) {
        print "Found '$fname' when not supposed to exist.\n";
        $code = 1;
    }
}
exit $code;