From 248c2a4db2b44950ecd8cee3a0e62f31984454b4 Mon Sep 17 00:00:00 2001
From: Chris Nandor <pudge@pobox.com>
Date: Fri, 8 Feb 2002 11:31:41 -0500
Subject: CopFILE / MacPerl_MPWFileName Message-ID:
 <pudge-10FC3D.16314108022002@onion.valueclick.com>

p4raw-id: //depot/perl@14608
---
 pp_ctl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pp_ctl.c')

diff --git a/pp_ctl.c b/pp_ctl.c
index 183849e121..9dbd52522c 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1414,7 +1414,7 @@ PP(pp_caller)
 	PUSHs(&PL_sv_undef);
     else
 	PUSHs(sv_2mortal(newSVpv(stashname, 0)));
-    PUSHs(sv_2mortal(newSVpv(CopFILE(cx->blk_oldcop), 0)));
+    PUSHs(sv_2mortal(newSVpv(OutCopFILE(cx->blk_oldcop), 0)));
     PUSHs(sv_2mortal(newSViv((I32)CopLINE(cx->blk_oldcop))));
     if (!MAXARG)
 	RETURN;
-- 
cgit v1.2.1