epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Fixed usage, error message, and cleaned up file.

Browse Source
This commit is contained in:
Janet B. Anderson
2004-03-30 20:35:51 +00:00
parent 8da4eb3b46
commit ff54104aa0
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
configure/tools/makeIncludeDbd.pl
View File

@@ -9,9 +9,8 @@
# in file LICENSE that is included with this distribution.
#*************************************************************************
#
# UNIX-cp in Perl
# $Id$
use File::Copy;
use File::Basename;
sub Usage
@@ -19,15 +18,14 @@ sub Usage
my ($txt) = @_;
print "Usage:\n";
print "\tcp file1 file2\n";
print "\tcp file [ file2 file3 ...] directory\n";
print "\tmakeIncludeDbd.pl infile1 [ infile2 infile3 ...] outfile\n";
print "\nError: $txt\n" if $txt;
exit 2;
}
# need at least two args: ARGV[0] and ARGV[1]
Usage("need more args") if $#ARGV < 1;
Usage("\"makeIncludeDbd.pl @ARGV\": No input files specified") if $#ARGV < 1;
$target=$ARGV[$#ARGV];
@sources=@ARGV[0..$#ARGV-1];