[perl.git] branch blead, updated. v5.13.7-251-gc519362

[Craig A. Berry]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/c519362833b3b1e79242d14c2041311bba13eacb?hp=1726bc11330f7a943b1e12c6dd5fa5454b90abd6>

- Log -----------------------------------------------------------------
commit c519362833b3b1e79242d14c2041311bba13eacb
Author: Craig A. Berry <craigbe...@mac.com>
Date:   Thu Dec 2 14:44:15 2010 -0600

    Fix some unreachable and return nits in vms/vms.c.

M       vms/vms.c

commit 07bee07990a0a8d9c27359b0d6d7871a58862dc4
Author: Craig A. Berry <craigbe...@mac.com>
Date:   Thu Dec 2 14:33:46 2010 -0600

    Fix some =/== nits in vms/vms.c

M       vms/vms.c
-----------------------------------------------------------------------

Summary of changes:
 vms/vms.c |   13 +++++--------
 1 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/vms/vms.c b/vms/vms.c
index 7801873..c483522 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -744,7 +744,6 @@ const int verspec = 7;
     *root = NULL;
     *root_len = 0;
     *dir = NULL;
-    *dir_len;
     *name = NULL;
     *name_len = 0;
     *ext = NULL;
@@ -2793,8 +2792,6 @@ int test_unix_status;
     default:
        return SS$_ABORT; /* punt */
     }
-
-  return SS$_ABORT; /* Should not get here */
 } 
 
 
@@ -4077,7 +4074,7 @@ static PerlIO * create_forked_xterm(pTHX_ const char 
*cmd, const char *mode)
            title[n] = *cptr;
            n++;
            if (n == 39) {
-               title[39] == 0;
+               title[39] = 0;
                break;
            }
            cptr++;
@@ -7169,7 +7166,7 @@ static char *int_tounixspec(const char *spec, char *rslt, 
int * utf8_fl)
     cp1 = cp1 + 9;
     cp2 = cp2 + 5;
     if (spec[6] != '\0') {
-      cp1[9] == '/';
+      cp1[9] = '/';
       cp1++;
       cp2++;
     }
@@ -7194,7 +7191,7 @@ static char *int_tounixspec(const char *spec, char *rslt, 
int * utf8_fl)
       cp1 = cp1 + 4;
       cp2 = cp2 + 12;
       if (spec[12] != '\0') {
-       cp1[4] == '/';
+       cp1[4] = '/';
        cp1++;
        cp2++;
       }
@@ -7700,6 +7697,7 @@ int islnm;
            return SS$_NORMAL;
        }
     }
+    return 0;
 }
 
 
@@ -8041,7 +8039,7 @@ int sts, v_len, r_len, d_len, n_len, e_len, vs_len;
        cmp = strncmp(vmspath, "dev", 4);
        if (cmp == 0) {
            sts = slash_dev_special_to_vms(unixptr, vmspath, vmspath_len);
-           if (sts = SS$_NORMAL)
+           if (sts == SS$_NORMAL)
                return SS$_NORMAL;
        }
       }
@@ -10134,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() */

--
Perl5 Master Repository