Nicholas Clark wrote:
It's the first task mentioned in the TODO for the category
"Tasks that need a little C knowledge"
http://public.activestate.com/cgi-bin/perlbrowse?file=pod%2Fperltodo.pod&rev=
(been moderately hard at work reordering the TODO to put the easier things
earlier)
Can't we just have any Perl that is built with PERL_PATCHNUM defined
emit blue smoke from the monitor? That isn't #define'd except when
building from p4 (or the mirrors). Something like this (not complete
since it ignores the DGUX branch):
=== perl.c
==================================================================
--- perl.c (revision 18194)
+++ perl.c (local)
@@ -3179,8 +3179,14 @@
(void *)upg_version(PL_patchlevel);
#if !defined(DGUX)
PerlIO_printf(PerlIO_stdout(),
- Perl_form(aTHX_ "\nThis is perl, %"SVf" built for %s",
+ Perl_form(aTHX_
+#if defined(PERL_PATCHNUM)
+ "\nThis is perl, %"SVf"-DEVEL%d built for %s",
+ vstringify(PL_patchlevel), PERL_PATCHNUM,
+#else
+ "\nThis is perl, %"SVf" built for %s",
vstringify(PL_patchlevel),
+#endif
ARCHNAME));
#else /* DGUX */
/* Adjust verbose output as in the perl that ships with the DG/UX OS
from EMC */
John
--
John Peacock
Director of Information Research and Technology
Rowman & Littlefield Publishing Group
4501 Forbes Boulevard
Suite H
Lanham, MD 20706
301-459-3366 x.5010
fax 301-429-5748
