Update Devel-PPPort to CPAN version 3.21

[perl5.git] / cpan / Devel-PPPort / parts / inc / cop

diff --git a/cpan/Devel-PPPort/parts/inc/cop b/cpan/Devel-PPPort/parts/inc/cop
index a797109..72d8087 100644 (file)
--- a/cpan/Devel-PPPort/parts/inc/cop
+++ b/cpan/Devel-PPPort/parts/inc/cop
@@ -1,12 +1,6 @@
 ################################################################################
 ##
-##  $Revision: 9 $
-##  $Author: mhx $
-##  $Date: 2010/03/07 13:15:47 +0100 $
-##
-################################################################################
-##
-##  Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
@@ -23,32 +17,32 @@ __UNDEFINED__
 
 #ifdef USE_ITHREADS
 
-__UNDEFINED__  CopFILE(c)              ((c)->cop_file)
-__UNDEFINED__  CopFILEGV(c)            (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv)
-__UNDEFINED__  CopFILE_set(c,pv)       ((c)->cop_file = savepv(pv))
-__UNDEFINED__  CopFILESV(c)            (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
-__UNDEFINED__  CopFILEAV(c)            (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
-__UNDEFINED__  CopSTASHPV(c)           ((c)->cop_stashpv)
-__UNDEFINED__  CopSTASHPV_set(c,pv)    ((c)->cop_stashpv = ((pv) ? savepv(pv) : Nullch))
-__UNDEFINED__  CopSTASH(c)             (CopSTASHPV(c) ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv)
-__UNDEFINED__  CopSTASH_set(c,hv)      CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch)
-__UNDEFINED__  CopSTASH_eq(c,hv)       ((hv) && (CopSTASHPV(c) == HvNAME(hv) \
-                                       || (CopSTASHPV(c) && HvNAME(hv) \
-                                       && strEQ(CopSTASHPV(c), HvNAME(hv)))))
+__UNDEFINED__  CopFILE(c)               ((c)->cop_file)
+__UNDEFINED__  CopFILEGV(c)             (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv)
+__UNDEFINED__  CopFILE_set(c,pv)        ((c)->cop_file = savepv(pv))
+__UNDEFINED__  CopFILESV(c)             (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
+__UNDEFINED__  CopFILEAV(c)             (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
+__UNDEFINED__  CopSTASHPV(c)            ((c)->cop_stashpv)
+__UNDEFINED__  CopSTASHPV_set(c,pv)     ((c)->cop_stashpv = ((pv) ? savepv(pv) : Nullch))
+__UNDEFINED__  CopSTASH(c)              (CopSTASHPV(c) ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv)
+__UNDEFINED__  CopSTASH_set(c,hv)       CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch)
+__UNDEFINED__  CopSTASH_eq(c,hv)        ((hv) && (CopSTASHPV(c) == HvNAME(hv) \
+                                        || (CopSTASHPV(c) && HvNAME(hv) \
+                                        && strEQ(CopSTASHPV(c), HvNAME(hv)))))
 
 #else
 
-__UNDEFINED__  CopFILEGV(c)            ((c)->cop_filegv)
-__UNDEFINED__  CopFILEGV_set(c,gv)     ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv))
-__UNDEFINED__  CopFILE_set(c,pv)       CopFILEGV_set((c), gv_fetchfile(pv))
-__UNDEFINED__  CopFILESV(c)            (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv)
-__UNDEFINED__  CopFILEAV(c)            (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav)
-__UNDEFINED__  CopFILE(c)              (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch)
-__UNDEFINED__  CopSTASH(c)             ((c)->cop_stash)
-__UNDEFINED__  CopSTASH_set(c,hv)      ((c)->cop_stash = (hv))
-__UNDEFINED__  CopSTASHPV(c)           (CopSTASH(c) ? HvNAME(CopSTASH(c)) : Nullch)
-__UNDEFINED__  CopSTASHPV_set(c,pv)    CopSTASH_set((c), gv_stashpv(pv,GV_ADD))
-__UNDEFINED__  CopSTASH_eq(c,hv)       (CopSTASH(c) == (hv))
+__UNDEFINED__  CopFILEGV(c)             ((c)->cop_filegv)
+__UNDEFINED__  CopFILEGV_set(c,gv)      ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv))
+__UNDEFINED__  CopFILE_set(c,pv)        CopFILEGV_set((c), gv_fetchfile(pv))
+__UNDEFINED__  CopFILESV(c)             (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv)
+__UNDEFINED__  CopFILEAV(c)             (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav)
+__UNDEFINED__  CopFILE(c)               (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch)
+__UNDEFINED__  CopSTASH(c)              ((c)->cop_stash)
+__UNDEFINED__  CopSTASH_set(c,hv)       ((c)->cop_stash = (hv))
+__UNDEFINED__  CopSTASHPV(c)            (CopSTASH(c) ? HvNAME(CopSTASH(c)) : Nullch)
+__UNDEFINED__  CopSTASHPV_set(c,pv)     CopSTASH_set((c), gv_stashpv(pv,GV_ADD))
+__UNDEFINED__  CopSTASH_eq(c,hv)        (CopSTASH(c) == (hv))
 
 #endif /* USE_ITHREADS */
 
@@ -56,17 +50,17 @@ __UNDEFINED__  CopSTASH_eq(c,hv)    (CopSTASH(c) == (hv))
 
 char *
 CopSTASHPV()
-       CODE:
-               RETVAL = CopSTASHPV(PL_curcop);
-       OUTPUT:
-               RETVAL
+        CODE:
+                RETVAL = CopSTASHPV(PL_curcop);
+        OUTPUT:
+                RETVAL
 
 char *
 CopFILE()
-       CODE:
-               RETVAL = CopFILE(PL_curcop);
-       OUTPUT:
-               RETVAL
+        CODE:
+                RETVAL = CopFILE(PL_curcop);
+        OUTPUT:
+                RETVAL
 
 =tests plan => 2
 
@@ -81,4 +75,3 @@ ok($package, "MyPackage");
 my $file = &Devel::PPPort::CopFILE();
 print "# $file\n";
 ok($file =~ /cop/i);
-