[svn:ponie] rev 303 - in trunk/perl: . t/run

Author: nicholas
Date: Mon Jun 27 03:10:19 2005
New Revision: 303

Modified:
   trunk/perl/perl.c
   trunk/perl/t/run/switches.t
Log:
Report "this is ponie" rather than "this is perl"


Modified: trunk/perl/perl.c
==============================================================================
--- trunk/perl/perl.c	(original)
+++ trunk/perl/perl.c	Mon Jun 27 03:10:19 2005
@@ -3177,9 +3177,9 @@ Perl_moreswitches(pTHX_ char *s)
 		(void *)upg_version(PL_patchlevel);
 #if !defined(DGUX)
 	PerlIO_printf(PerlIO_stdout(),
-		Perl_form(aTHX_ "\nThis is perl, v%"SVf" built for %s",
-		    vstringify(PL_patchlevel),
-		    ARCHNAME));
+		Perl_form(aTHX_ "\nThis is ponie, based on perl v%"SVf" built"
+			  " for %s", vstringify(PL_patchlevel),
+			  ARCHNAME));
 #else /* DGUX */
 /* Adjust verbose output as in the perl that ships with the DG/UX OS from EMC */
 	PerlIO_printf(PerlIO_stdout(),

Modified: trunk/perl/t/run/switches.t
==============================================================================
--- trunk/perl/t/run/switches.t	(original)
+++ trunk/perl/t/run/switches.t	Mon Jun 27 03:10:19 2005
@@ -221,7 +221,7 @@ SWTESTPM
 
     my $v = sprintf "%vd", $^V;
     like( runperl( switches => ['-v'] ),
-	  qr/This is perl, v$v built for $Config{archname}.+Copyright.+Larry Wall.+Artistic License.+GNU General Public License/s,
+	  qr/This is ponie, based on perl v$v built for $Config{archname}.+Copyright.+Larry Wall.+Artistic License.+GNU General Public License/s,
           '-v looks okay' );
 
 }