This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix some unreachable and return nits in vms/vms.c.
authorCraig A. Berry <craigberry@mac.com>
Thu, 2 Dec 2010 20:44:15 +0000 (14:44 -0600)
committerCraig A. Berry <craigberry@mac.com>
Thu, 2 Dec 2010 20:44:15 +0000 (14:44 -0600)
vms/vms.c

index fab67e5..c483522 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -2792,8 +2792,6 @@ int test_unix_status;
     default:
        return SS$_ABORT; /* punt */
     }
-
-  return SS$_ABORT; /* Should not get here */
 } 
 
 
@@ -7699,6 +7697,7 @@ int islnm;
            return SS$_NORMAL;
        }
     }
+    return 0;
 }
 
 
@@ -10133,7 +10132,6 @@ Perl_trim_unixpath(pTHX_ char *fspec, const char *wildspec, int opts)
     PerlMem_free(unixwild);
     PerlMem_free(lcres);
     return 1;
-    ellipsis = nextell;
   }
 
 }  /* end of trim_unixpath() */