1c1
< /* $Header: /src/pub/tcsh/tc.vers.c,v 3.50 2004/08/04 17:12:31 christos Exp $ */
---
> /* $Header: /p/tcsh/cvsroot/tcsh/tc.vers.c,v 3.54 2006/03/02 18:46:45 christos Exp $ */
36c36
< RCSID("$Id: tc.vers.c,v 3.50 2004/08/04 17:12:31 christos Exp $")
---
> RCSID("$tcsh: tc.vers.c,v 3.54 2006/03/02 18:46:45 christos Exp $")
46c46
< fix_version()
---
> fix_version(void)
149,152c149,152
< char version[BUFSIZE];
< Char *machtype = tgetenv(STRMACHTYPE);
< Char *vendor = tgetenv(STRVENDOR);
< Char *ostype = tgetenv(STROSTYPE);
---
> char *version;
> const Char *machtype = tgetenv(STRMACHTYPE);
> const Char *vendor = tgetenv(STRVENDOR);
> const Char *ostype = tgetenv(STROSTYPE);
162c162
< (void) xsnprintf(version, sizeof(version),
---
> version = xasprintf(
168,171c168,174
< set(STRversion, SAVE(version), VAR_READWRITE);
< (void) xsnprintf(version, sizeof(version), "%d.%.2d.%.2d",
< REV, VERS, PATCHLEVEL);
< set(STRtcsh, SAVE(version), VAR_READWRITE);
---
> cleanup_push(version, xfree);
> setcopy(STRversion, str2short(version), VAR_READWRITE);
> cleanup_until(version);
> version = xasprintf("%d.%.2d.%.2d", REV, VERS, PATCHLEVEL);
> cleanup_push(version, xfree);
> setcopy(STRtcsh, str2short(version), VAR_READWRITE);
> cleanup_until(version);