cvs commit: ponie/perl/t/run switches.t

cvsuser     04/03/10 10:12:12

  Modified:    perl/t/run switches.t
  Log:
  -V outputs ponie, not perl, so correct the test's expectations
  
  Revision  Changes    Path
  1.2       +1 -1      ponie/perl/t/run/switches.t
  
  Index: switches.t
  ===================================================================
  RCS file: /cvs/public/ponie/perl/t/run/switches.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- switches.t	9 Sep 2003 11:59:53 -0000	1.1
  +++ switches.t	10 Mar 2004 18:12:12 -0000	1.2
  @@ -220,7 +220,7 @@
       my $v = sprintf "%vd", $^V;
       use Config;
       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, v$v built for $Config{archname}.+Copyright.+Larry Wall.+Artistic License.+GNU General Public License/s,
             '-v looks okay' );
   
   }