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 /pp_sys.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 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -342,7 +342,6 @@ PP(pp_backtick) if (gimme == G_VOID) { char tmpbuf[256]; while (PerlIO_read(fp, tmpbuf, sizeof tmpbuf) > 0) - /*SUPPRESS 530*/ ; } else if (gimme == G_SCALAR) { @@ -351,7 +350,6 @@ PP(pp_backtick) PL_rs = &PL_sv_undef; sv_setpvn(TARG, "", 0); /* note that this preserves previous buffer */ while (sv_gets(TARG, fp, SvCUR(TARG)) != Nullch) - /*SUPPRESS 530*/ ; LEAVE; XPUSHs(TARG); @@ -4070,7 +4068,6 @@ PP(pp_fork) if (childpid < 0) RETSETUNDEF; if (!childpid) { - /*SUPPRESS 560*/ if ((tmpgv = gv_fetchpv("$", TRUE, SVt_PV))) { SvREADONLY_off(GvSV(tmpgv)); sv_setiv(GvSV(tmpgv), (IV)PerlProc_getpid()); |