| Newsgroups |
perl.ponie.changes |
| Message-ID |
<[email protected]> |
Author: sky
Date: Tue Aug 19 07:34:19 2003
New Revision: 28
Modified:
trunk/perl/perl.c
Log:
cheat and say we are ponie
Modified: trunk/perl/perl.c
==============================================================================
--- trunk/perl/perl.c (original)
+++ trunk/perl/perl.c Tue Aug 19 07:34:19 2003
@@ -812,6 +812,8 @@
Perl_reentrant_free(aTHX);
#endif
+ Parrot_destroy(PL_Parrot);
+
sv_free_arenas();
/* As the absolutely last thing, free the non-arena SV for mess() */
@@ -2581,7 +2583,7 @@
case 'v':
#if !defined(DGUX)
PerlIO_printf(PerlIO_stdout(),
- Perl_form(aTHX_ "\nThis is perl, v%"VDf" built for %s",
+ Perl_form(aTHX_ "\nThis is ponie, v%"VDf" built for %s",
PL_patchlevel, ARCHNAME));
#else /* DGUX */
/* Adjust verbose output as in the perl that ships with the DG/UX OS from EMC */