# | Line 0 | Line 1 | |
---|---|---|
1 | + | #!/usr/local/bin/perl |
2 | + | # |
3 | + | # Check file locally and release top, returning the full actual path |
4 | + | # Replacement occurs only if the library exists |
5 | + | # first argument is file base |
6 | + | |
7 | + | $base=shift; |
8 | + | @infiles=@ARGV; |
9 | + | use Utilities::SCRAMUtils; |
10 | + | $files=""; |
11 | + | |
12 | + | foreach $file ( @infiles ) { |
13 | + | $files = $files." ".SCRAMUtils::checkfile("$base/$file"); |
14 | + | } |
15 | + | print $files; |
16 | + | exit 1; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |