X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=c67134378b428530584cff916ef7d72d6c5c26ff;hb=be708cc0141c68546a70e3d19f68ad41bef15add;hp=5f07bfc29d89f487040f012fe53170a56f7d56fb;hpb=0631ea039330939c8d770bbc106391c8b0287539;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index 5f07bfc..c671343 100644
--- a/perl.c
+++ b/perl.c
@@ -1562,7 +1562,7 @@ S_run_body(pTHX_ I32 oldscope)
 
 	if (PL_minus_c) {
 #ifdef MACOS_TRADITIONAL
-	    PerlIO_printf(Perl_error_log, "%s syntax OK\n", MacPerl_MPWFileName(PL_origfilename));
+	    PerlIO_printf(Perl_error_log, "# %s syntax OK\n", MacPerl_MPWFileName(PL_origfilename));
 #else
 	    PerlIO_printf(Perl_error_log, "%s syntax OK\n", PL_origfilename);
 #endif