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

Files @ 03aea55e2921

Branch filter:

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

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

Anton Ryzhov

Correctly bind to local network
Correct non-root skype backend launch (D-BUS needs to write to ~/)

#!/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;