| lh | 9ed821d | 2023-04-07 01:36:19 -0700 | [diff] [blame] | 1 | #!/usr/bin/env perl |
| 2 | # Check that given arguments do not exist on filesystem. | ||||
| 3 | my $code = 0; | ||||
| 4 | if ($#ARGV < 0) { | ||||
| 5 | print "Usage: $0 file1 [fileN]\n"; | ||||
| 6 | exit 2; | ||||
| 7 | } | ||||
| 8 | while (@ARGV) { | ||||
| 9 | my $fname = shift @ARGV; | ||||
| 10 | if (-e $fname) { | ||||
| 11 | print "Found '$fname' when not supposed to exist.\n"; | ||||
| 12 | $code = 1; | ||||
| 13 | } | ||||
| 14 | } | ||||
| 15 | exit $code; | ||||