diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-16 04:13:42 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-16 13:55:18 +0000 |
| commit | a6e20a404b42cad25eb97280fa2bcacffda64cd6 (patch) | |
| tree | becab207af03fe0a26c7ec2809551b75b0302163 /util.c | |
| parent | 0dea61d9463d40d400a2f349f672ec0d9dcba752 (diff) | |
| download | perl-a6e20a404b42cad25eb97280fa2bcacffda64cd6.tar.gz | |
Removing /*SUPPRESS xxx*/
Message-ID: <20050616141342.GA22188@petdance.com>
p4raw-id: //depot/perl@24871
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -152,7 +152,6 @@ Perl_safesysfree(Malloc_t where) #endif DEBUG_m( PerlIO_printf(Perl_debug_log, "0x%"UVxf": (%05ld) free\n",PTR2UV(where),(long)PL_an++)); if (where) { - /*SUPPRESS 701*/ PerlMem_free(where); } } @@ -584,7 +583,6 @@ Perl_fbm_instr(pTHX_ unsigned char *big, register unsigned char *bigend, SV *lit register I32 tmp; top2: - /*SUPPRESS 560*/ if ((tmp = table[*s])) { if ((s += tmp) < bigend) goto top2; @@ -1412,7 +1410,6 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val) I32 max; char **tmpenv; - /*SUPPRESS 530*/ for (max = i; environ[max]; max++) ; tmpenv = (char**)safesysmalloc((max+2) * sizeof(char*)); for (j=0; j<max; j++) { /* copy environment */ @@ -2151,7 +2148,6 @@ Perl_my_popen(pTHX_ char *cmd, char *mode) PerlProc__exit(1); } #endif /* defined OS2 */ - /*SUPPRESS 560*/ if ((tmpgv = gv_fetchpv("$",TRUE, SVt_PV))) { SvREADONLY_off(GvSV(tmpgv)); sv_setiv(GvSV(tmpgv), PerlProc_getpid()); @@ -2632,7 +2628,6 @@ Perl_wait4pid(pTHX_ Pid_t pid, int *statusp, int flags) #endif /* !DOSISH || OS2 || WIN32 || NETWARE */ void -/*SUPPRESS 590*/ Perl_pidgone(pTHX_ Pid_t pid, int status) { register SV *sv; |