3c99391d93
In some cases the license-identification header was missing, so I added that as well. Replaced the remaining headers that specifically identified "Versions 3.13.7 and higher". Makefiles and the build system were deliberately excluded.
20 lines
743 B
Perl
20 lines
743 B
Perl
#!/usr/bin/env perl
|
|
#*************************************************************************
|
|
# Copyright (c) 2002 The University of Chicago, as Operator of Argonne
|
|
# National Laboratory.
|
|
# Copyright (c) 2002 The Regents of the University of California, as
|
|
# Operator of Los Alamos National Laboratory.
|
|
# SPDX-License-Identifier: EPICS
|
|
# EPICS Base is distributed subject to a Software License Agreement found
|
|
# in the file LICENSE that is included with this distribution.
|
|
#*************************************************************************
|
|
|
|
# Find and delete cvs .#* and editor backup *~
|
|
# files from all dirs of the directory tree.
|
|
|
|
use File::Find;
|
|
|
|
@ARGV = ('.') unless @ARGV;
|
|
|
|
find sub { unlink if -f && m/(^\.\#)|(~$)/ }, @ARGV;
|