From b830d50b017d35f3a9a2ded7a6458aac70c3f037 Mon Sep 17 00:00:00 2001 From: imp Date: Thu, 22 May 1997 21:40:08 +0000 Subject: Fix buffer overload that might lead to root. --- gnu/usr.bin/perl/perl/stab.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/usr.bin/perl/perl/stab.c b/gnu/usr.bin/perl/perl/stab.c index e34aa94..6edb599 100644 --- a/gnu/usr.bin/perl/perl/stab.c +++ b/gnu/usr.bin/perl/perl/stab.c @@ -1,4 +1,4 @@ -/* $RCSfile: stab.c,v $$Revision: 1.1.1.1 $$Date: 1994/09/10 06:27:33 $ +/* $RCSfile: stab.c,v $$Revision: 1.2 $$Date: 1995/05/30 05:03:19 $ * * Copyright (c) 1991, Larry Wall * @@ -6,6 +6,9 @@ * License or the Artistic License, as specified in the README file. * * $Log: stab.c,v $ + * Revision 1.2 1995/05/30 05:03:19 rgrimes + * Remove trailing whitespace. + * * Revision 1.1.1.1 1994/09/10 06:27:33 gclarkii * Initial import of Perl 4.046 bmaked * @@ -817,7 +820,7 @@ char *name; char tmpbuf[1200]; STAB *stab; - sprintf(tmpbuf,"'_<%s", name); + snprintf(tmpbuf,sizeof(tmpbuf), "'_<%s", name); stab = stabent(tmpbuf, TRUE); str_set(stab_val(stab), name); if (perldb) -- cgit v1.1