From: Abhijit Menon-Sen Date: Sun, 7 Apr 2002 21:48:49 +0000 (+0000) Subject: Make other nits nervous. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=25c09a70fd931a4c30fe75cf5895a26fb64d6da0;p=p5sagit%2Fp5-mst-13.2.git Make other nits nervous. p4raw-id: //depot/perl@15792 --- diff --git a/gv.c b/gv.c index a89e900..b24c83e 100644 --- a/gv.c +++ b/gv.c @@ -652,7 +652,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) char smallbuf[256]; char *tmpbuf; - if (len + 3 < sizeof smallbuf) + if (len + 3 < sizeof (smallbuf)) tmpbuf = smallbuf; else New(601, tmpbuf, len+3, char); diff --git a/perl.c b/perl.c index 1a5ec5c..4c69293 100644 --- a/perl.c +++ b/perl.c @@ -2686,8 +2686,6 @@ S_init_main_stash(pTHX) { GV *gv; - - PL_curstash = PL_defstash = newHV(); PL_curstname = newSVpvn("main",4); gv = gv_fetchpv("main::",TRUE, SVt_PVHV);