Don't check whether file is readable until we have decided not to ignore it.

1 files changed, 3 insertions, 3 deletions

diff --git a/lib-src/rcs-checkin b/lib-src/rcs-checkin
index 88fd01125f3..7b894eac83d 100755
--- a/lib-src/rcs-checkin
+++ b/lib-src/rcs-checkin
@@ -35,9 +35,6 @@ ls_owner_pattern='[^ ][^ ]*  *[^ ][^ ]*  *\([^ ][^ ]*\)'
 
 for file
 do
-        # Check that file is readable.
-        <$file || exit
-
         # Make it easier to say `rcs-checkin *'
         # by ignoring file names that already contain `~', or end in `,v'.
         case $file in
@@ -46,6 +43,9 @@ do
         # Ignore non-files too.
         test -f "$file" || continue
 
+        # Check that file is readable.
+        <$file || exit
+
         # If the RCS file does not already exist,
         # initialize it with a description from $file's first line.
         rlog -R "$file" >/dev/null 2>&1 ||