CopFILE / MacPerl_MPWFileName

Message-ID: <pudge-10FC3D.16314108022002@onion.valueclick.com>

p4raw-id: //depot/perl@14608

1 files changed, 7 insertions, 0 deletions

diff --git a/cop.h b/cop.h
index 3e1820fc20..d617bfc32a 100644
--- a/cop.h
+++ b/cop.h
@@ -70,6 +70,13 @@ struct cop {
 #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.
  */