[win32] more whitespace tweaks from maintbranch
Gurusamy Sarathy [Mon, 18 May 1998 07:51:19 +0000 (07:51 +0000)]
p4raw-id: //depot/win32/perl@1009

av.c
perl.c
pp_ctl.c
pp_sys.c
toke.c

diff --git a/av.c b/av.c
index b4621f3..02be7cc 100644 (file)
--- a/av.c
+++ b/av.c
@@ -369,7 +369,6 @@ av_undef(register AV *av)
            SvREFCNT_dec(AvARRAY(av)[--key]);
     }
     Safefree(AvALLOC(av));
-    SvPVX(av) = 0;
     AvALLOC(av) = 0;
     SvPVX(av) = 0;
     AvMAX(av) = AvFILLp(av) = -1;
@@ -479,7 +478,7 @@ av_unshift(register AV *av, register I32 num)
        AvFILLp(av) += i;
        SvPVX(av) = (char*)(AvARRAY(av) - i);
     }
-    if (num) {     
+    if (num) {
        i = AvFILLp(av);
        av_extend(av, i + num);
        AvFILLp(av) += num;
diff --git a/perl.c b/perl.c
index e2856f8..e02786e 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2676,7 +2676,7 @@ call_list(I32 oldscope, AV *list)
     dJMPENV;
     int ret;
 
-    while (AvFILL(list) >= 0) { 
+    while (AvFILL(list) >= 0) {
        CV *cv = (CV*)av_shift(list);
 
        SAVEFREESV(cv);
@@ -2814,6 +2814,3 @@ my_exit_jump(void)
 
     JMPENV_JUMP(2);
 }
-
-
-
index ede74b5..61e940f 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -915,14 +915,16 @@ block_gimme(void)
        return G_VOID;
 
     switch (cxstack[cxix].blk_gimme) {
+    case G_VOID:
+       return G_VOID;
     case G_SCALAR:
        return G_SCALAR;
     case G_ARRAY:
        return G_ARRAY;
     default:
        croak("panic: bad gimme: %d\n", cxstack[cxix].blk_gimme);
-    case G_VOID:
-       return G_VOID;
+       /* NOTREACHED */
+       return 0;
     }
 }
 
index d00d162..fee474f 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -581,7 +581,8 @@ PP(pp_untie)
 {
     djSP;
     SV * sv ;
-    sv = POPs;          
+
+    sv = POPs;
 
     if (dowarn) {
         MAGIC * mg ;
@@ -4152,7 +4153,7 @@ PP(pp_gpwent)
        sv_setpv(sv, pwent->pw_gecos);
 #endif
 #ifndef INCOMPLETE_TAINTS
-       /* pw_gecos is tainted. */
+       /* pw_gecos is tainted because user himself can diddle with it. */
        SvTAINTED_on(sv);
 #endif
 
@@ -4303,7 +4304,7 @@ PP(pp_getlogin)
 
 PP(pp_syscall)
 {
-#ifdef HAS_SYSCALL   
+#ifdef HAS_SYSCALL
     djSP; dMARK; dORIGMARK; dTARGET;
     register I32 items = SP - MARK;
     unsigned long a[20];
@@ -4517,4 +4518,3 @@ int operation;
 }
 
 #endif /* LOCKF_EMULATE_FLOCK */
-
diff --git a/toke.c b/toke.c
index 4a21941..02f8cb9 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -189,7 +189,7 @@ missingterm(char *s)
     char q;
     if (s) {
        char *nl = strrchr(s,'\n');
-       if (nl) 
+       if (nl)
            *nl = '\0';
     }
     else if (multi_close < 32 || multi_close == 127) {
@@ -5086,7 +5086,7 @@ scan_heredoc(register char *s)
        }
        sv_setpvn(tmpstr,d+1,s-d);
        s += len - 1;
-       curcop->cop_line++;     /* the preceding stmt passes a newline */
+       curcop->cop_line++;     /* the preceding stmt passes a newline */
 
        sv_catpvn(herewas,s,bufend-s);
        sv_setsv(linestr,herewas);