Permalink
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (9 sloc) 288 Bytes
#!/usr/bin/perl -w
use strict;
use File::Spec::Functions;
print "1..1\n";
# Silence "Syntax OK".
close STDERR;
my $ret = system $^X, '-cw', '-I' . catdir(curdir, qw(blib lib)),
'-I' . catdir(curdir, qw(lib)), catfile(curdir, 'bin', 'svnnotify');
print +($ret ? 'not ' : ''), "ok 1\n"