Bug#3122: run-parts should ignore RCS

[Bill Wohler <wohler@newt.com>]

  Please find enclosed a patch that allows run-parts to ignore the RCS
  subdirectory/symbolic link.

  My preferred solution is for run-parts to use this:

      next unless $f =~ m/^[a-z0-9]/;

  so that all files that start with upper case are ignored.  This
  would ignore SCCS directories and READMEs also.  I'm not sure what
  would break though.  The operative is the first letter of the
  command--the rest of the letters really can be anything.

  You can't just ignore directories since that wouldn't ignore READMEs
  or symbolic links to directories (as in my case).

  Debian GNU/Linux run-parts script, version 0.2.
  Debian Linux 0.93R6.
  Linux gbr 1.2.13 #4 Sun Nov 26 15:07:59 PST 1995 i486
  This is perl, version 5.001, patchlevel 1m

Bill Wohler <wohler@newt.com>   ph: +1-415-854-1857  fax: +1-415-854-3195
Say it with MIME.  Maintainer of comp.mail.mh and news.software.nn FAQs.
If you're passed on the right, you're in the wrong lane.

*** run-parts	1996/05/17 22:04:12	1.1
--- run-parts	1996/05/17 22:05:00
***************
*** 35,40 ****
--- 35,41 ----
  opendir(D,$dir) || &quit("failed to open directory $dir: $!");
  for $f (sort readdir(D)) {
      next unless $f =~ m/^[-a-zA-Z0-9_]+$/;
+     next if $f =~ m/^RCS$/;
      $path= $dir.'/'.$f;
      stat($path) || &quit("failed to stat component $path: $!");
      if (!-f _ || !-x _) {