Change 14607: Redo CopFILE / MacPerl_MPWFIleName patch

Change 14607 by pudge@pudge-mobile on 2002/02/08 19:21:04

	Redo CopFILE / MacPerl_MPWFIleName patch

Affected files ...

.... //depot/maint-5.6/macperl/cop.h#3 edit
.... //depot/maint-5.6/macperl/deb.c#3 edit
.... //depot/maint-5.6/macperl/pp_ctl.c#6 edit
.... //depot/maint-5.6/macperl/toke.c#6 edit
.... //depot/maint-5.6/macperl/util.c#8 edit

Differences ...

==== //depot/maint-5.6/macperl/cop.h#3 (text) ====
Index: perl/cop.h
--- perl/cop.h.~1~	Fri Feb  8 12:30:06 2002
+++ perl/cop.h	Fri Feb  8 12:30:06 2002
@@ -64,6 +64,13 @@
 #define CopLINE_dec(c)		(--CopLINE(c))
 #define CopLINE_set(c,l)	(CopLINE(c) = (l))
 
+/* OutCopFILE() is CopFILE for output (caller, die, warn, etc.) */
+#ifdef MACOS_TRADITIONAL
+#  define OutCopFILE(c) MacPerl_MPWFileName(CopFILE(c))
+#else
+#  define OutCopFILE(c) CopFILE(c)
+#endif
+
 /*
  * Here we have some enormously heavy (or at least ponderous) wizardry.
  */

==== //depot/maint-5.6/macperl/deb.c#3 (text) ====
Index: perl/deb.c
--- perl/deb.c.~1~	Fri Feb  8 12:30:06 2002
+++ perl/deb.c	Fri Feb  8 12:30:06 2002
@@ -45,11 +45,7 @@
 Perl_vdeb(pTHX_ const char *pat, va_list *args)
 {
 #ifdef DEBUGGING
-#ifdef MACOS_TRADITIONAL
-    char* file = MacPerl_MPWFileName(CopFILE(PL_curcop));
-#else
-    char* file = CopFILE(PL_curcop);
-#endif
+    char* file = OutCopFILE(PL_curcop);
 
 #ifdef USE_THREADS
     PerlIO_printf(Perl_debug_log, "0x%"UVxf" (%s:%ld)\t",

==== //depot/maint-5.6/macperl/pp_ctl.c#6 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c.~1~	Fri Feb  8 12:30:06 2002
+++ perl/pp_ctl.c	Fri Feb  8 12:30:06 2002
@@ -1537,11 +1537,7 @@
 	PUSHs(&PL_sv_undef);
     else
 	PUSHs(sv_2mortal(newSVpv(stashname, 0)));
-#ifdef MACOS_TRADITIONAL
-    PUSHs(sv_2mortal(newSVpv(MacPerl_MPWFileName(CopFILE(cx->blk_oldcop)), 0)));
-#else
-    PUSHs(sv_2mortal(newSVpv(CopFILE(cx->blk_oldcop), 0)));
-#endif
+    PUSHs(sv_2mortal(newSVpv(OutCopFILE(cx->blk_oldcop), 0)));
     PUSHs(sv_2mortal(newSViv((I32)CopLINE(cx->blk_oldcop))));
     if (!MAXARG)
 	RETURN;

==== //depot/maint-5.6/macperl/toke.c#6 (text) ====
Index: perl/toke.c
--- perl/toke.c.~1~	Fri Feb  8 12:30:06 2002
+++ perl/toke.c	Fri Feb  8 12:30:06 2002
@@ -7484,11 +7484,7 @@
     }
     msg = sv_2mortal(newSVpv(s, 0));
     Perl_sv_catpvf(aTHX_ msg, " at %s line %"IVdf", ",
-#ifdef MACOS_TRADITIONAL
-		   MacPerl_MPWFileName(CopFILE(PL_curcop)), (IV)CopLINE(PL_curcop));
-#else
-		   CopFILE(PL_curcop), (IV)CopLINE(PL_curcop));
-#endif
+		   OutCopFILE(PL_curcop), (IV)CopLINE(PL_curcop));
     if (context)
 	Perl_sv_catpvf(aTHX_ msg, "near \"%.*s\"\n", contlen, context);
     else
@@ -7506,18 +7502,10 @@
     if (PL_error_count >= 10) {
 	if (PL_in_eval && SvCUR(ERRSV))
 	    Perl_croak(aTHX_ "%"SVf"%s has too many errors.\n",
-#ifdef MACOS_TRADITIONAL
-		       ERRSV, MacPerl_MPWFileName(CopFILE(PL_curcop)));
-#else
-		       ERRSV, CopFILE(PL_curcop));
-#endif
+		       ERRSV, OutCopFILE(PL_curcop));
 	else
 	    Perl_croak(aTHX_ "%s has too many errors.\n",
-#ifdef MACOS_TRADITIONAL
-		       MacPerl_MPWFileName(CopFILE(PL_curcop)));
-#else
-		       CopFILE(PL_curcop));
-#endif
+		       OutCopFILE(PL_curcop));
     }
     PL_in_my = 0;
     PL_in_my_stash = Nullhv;

==== //depot/maint-5.6/macperl/util.c#8 (text) ====
Index: perl/util.c
--- perl/util.c.~1~	Fri Feb  8 12:30:06 2002
+++ perl/util.c	Fri Feb  8 12:30:06 2002
@@ -1525,12 +1525,7 @@
     if (!SvCUR(sv) || *(SvEND(sv) - 1) != '\n') {
 	if (CopLINE(PL_curcop))
 	    Perl_sv_catpvf(aTHX_ sv, " at %s line %"IVdf,
-#ifdef MACOS_TRADITIONAL
-			   MacPerl_MPWFileName(CopFILE(PL_curcop)),
-#else
-			   CopFILE(PL_curcop),
-#endif
-			   (IV)CopLINE(PL_curcop));
+			   OutCopFILE(PL_curcop), (IV)CopLINE(PL_curcop));
 	if (GvIO(PL_last_in_gv) && IoLINES(GvIOp(PL_last_in_gv))) {
 	    bool line_mode = (RsSIMPLE(PL_rs) &&
 			      SvCUR(PL_rs) == 1 && *SvPVX(PL_rs) == '\n');
End of Patch.