This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
RE: [PATCH perl.h toke.c utf8.c] minor format clean up
authorRobin Barker <RMBarker@cpan.org>
Wed, 1 Dec 2004 15:15:44 +0000 (15:15 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 9 Dec 2004 18:50:16 +0000 (18:50 +0000)
Message-ID: <533D273D4014D411AB1D00062938C4D90849C521@hotel.npl.co.uk>

p4raw-id: //depot/perl@23633

perl.h

diff --git a/perl.h b/perl.h
index 46a7a86..3d055e2 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -751,7 +751,7 @@ int usleep(unsigned int);
 #  define MALLOC_CHECK_TAINT(argc,argv,env)
 #endif /* MYMALLOC */
 
-#define TOO_LATE_FOR_(ch,s)    Perl_croak(aTHX_ "\"-%c\" is on the #! line, it must also be used on the command line", (char)(ch), s)
+#define TOO_LATE_FOR_(ch,s)    Perl_croak(aTHX_ "\"-%c\" is on the #! line, it must also be used on the command line%s", (char)(ch), s)
 #define TOO_LATE_FOR(ch)       TOO_LATE_FOR_(ch, "")
 #define MALLOC_TOO_LATE_FOR(ch)        TOO_LATE_FOR_(ch, " with $ENV{PERL_MALLOC_OPT}")
 #define MALLOC_CHECK_TAINT2(argc,argv) MALLOC_CHECK_TAINT(argc,argv,NULL)