Upgrade to Devel::PPPort 3.15
Marcus Holland-Moritz [Sun, 18 Jan 2009 17:44:08 +0000 (18:44 +0100)]
57 files changed:
ext/Devel/PPPort/Changes
ext/Devel/PPPort/HACKERS
ext/Devel/PPPort/Makefile.PL
ext/Devel/PPPort/PPPort_pm.PL
ext/Devel/PPPort/PPPort_xs.PL
ext/Devel/PPPort/README
ext/Devel/PPPort/apicheck_c.PL
ext/Devel/PPPort/devel/buildperl.pl
ext/Devel/PPPort/devel/devtools.pl
ext/Devel/PPPort/devel/mkapidoc.sh
ext/Devel/PPPort/devel/mktodo
ext/Devel/PPPort/devel/mktodo.pl
ext/Devel/PPPort/devel/regenerate
ext/Devel/PPPort/devel/scanprov
ext/Devel/PPPort/mktests.PL
ext/Devel/PPPort/module2.c
ext/Devel/PPPort/module3.c
ext/Devel/PPPort/parts/apicheck.pl
ext/Devel/PPPort/parts/apidoc.fnc
ext/Devel/PPPort/parts/inc/MY_CXT
ext/Devel/PPPort/parts/inc/SvPV
ext/Devel/PPPort/parts/inc/SvREFCNT
ext/Devel/PPPort/parts/inc/Sv_set
ext/Devel/PPPort/parts/inc/call
ext/Devel/PPPort/parts/inc/cop
ext/Devel/PPPort/parts/inc/exception
ext/Devel/PPPort/parts/inc/format
ext/Devel/PPPort/parts/inc/grok
ext/Devel/PPPort/parts/inc/limits
ext/Devel/PPPort/parts/inc/mPUSH
ext/Devel/PPPort/parts/inc/magic
ext/Devel/PPPort/parts/inc/memory
ext/Devel/PPPort/parts/inc/misc
ext/Devel/PPPort/parts/inc/newCONSTSUB
ext/Devel/PPPort/parts/inc/newRV
ext/Devel/PPPort/parts/inc/newSVpv
ext/Devel/PPPort/parts/inc/podtest
ext/Devel/PPPort/parts/inc/ppphbin
ext/Devel/PPPort/parts/inc/ppphdoc
ext/Devel/PPPort/parts/inc/ppphtest
ext/Devel/PPPort/parts/inc/pv_tools
ext/Devel/PPPort/parts/inc/pvs
ext/Devel/PPPort/parts/inc/shared_pv
ext/Devel/PPPort/parts/inc/snprintf
ext/Devel/PPPort/parts/inc/sprintf
ext/Devel/PPPort/parts/inc/strlfuncs
ext/Devel/PPPort/parts/inc/sv_xpvf
ext/Devel/PPPort/parts/inc/threads
ext/Devel/PPPort/parts/inc/uv
ext/Devel/PPPort/parts/inc/variables
ext/Devel/PPPort/parts/inc/version
ext/Devel/PPPort/parts/inc/warn
ext/Devel/PPPort/parts/ppport.fnc
ext/Devel/PPPort/parts/ppptools.pl
ext/Devel/PPPort/soak
ext/Devel/PPPort/t/misc.t
ext/Devel/PPPort/typemap

index 9b27100..25d701d 100644 (file)
@@ -1,3 +1,9 @@
+3.15 - 2009-01-18
+
+    * added support for the following API
+        DEFSV_set
+    * fix --unstrip for development versions
+
 3.14_05 - 2008-10-31
 
     * fix stupid bugs in pv_pretty tests (only the
index 0a80fb2..540947f 100644 (file)
@@ -309,7 +309,7 @@ module in the core:
 
 =head1 COPYRIGHT
 
-Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 
 Version 2.x, Copyright (C) 2001, Paul Marquess.
 
index 3a7597c..e2035b3 100644 (file)
@@ -4,13 +4,13 @@
 #
 ################################################################################
 #
-#  $Revision: 28 $
+#  $Revision: 29 $
 #  $Author: mhx $
-#  $Date: 2008/01/04 10:47:38 +0100 $
+#  $Date: 2009/01/18 14:10:49 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
index 3eef5dd..663ff9d 100644 (file)
@@ -4,13 +4,13 @@
 #
 ################################################################################
 #
-#  $Revision: 63 $
+#  $Revision: 64 $
 #  $Author: mhx $
-#  $Date: 2008/10/30 01:47:31 +0100 $
+#  $Date: 2009/01/18 14:10:49 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
@@ -372,13 +372,13 @@ __DATA__
 #
 ################################################################################
 #
-#  $Revision: 63 $
+#  $Revision: 64 $
 #  $Author: mhx $
-#  $Date: 2008/10/30 01:47:31 +0100 $
+#  $Date: 2009/01/18 14:10:49 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
@@ -515,7 +515,7 @@ Version 3.x was ported back to CPAN by Marcus Holland-Moritz.
 
 =head1 COPYRIGHT
 
-Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 
 Version 2.x, Copyright (C) 2001, Paul Marquess.
 
@@ -535,7 +535,7 @@ package Devel::PPPort;
 use strict;
 use vars qw($VERSION $data);
 
-$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.14_05 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.15 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 sub _init_data
 {
index 704fedb..8d9fd4f 100644 (file)
@@ -4,13 +4,13 @@
 #
 ################################################################################
 #
-#  $Revision: 14 $
+#  $Revision: 15 $
 #  $Author: mhx $
-#  $Date: 2008/01/04 10:47:37 +0100 $
+#  $Date: 2009/01/18 14:10:48 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
@@ -93,13 +93,13 @@ __DATA__
 *
 ********************************************************************************
 *
-*  $Revision: 14 $
+*  $Revision: 15 $
 *  $Author: mhx $
-*  $Date: 2008/01/04 10:47:37 +0100 $
+*  $Date: 2009/01/18 14:10:48 +0100 $
 *
 ********************************************************************************
 *
-*  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+*  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 *  Version 2.x, Copyright (C) 2001, Paul Marquess.
 *  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 *
index 42def29..fc24309 100644 (file)
@@ -69,7 +69,7 @@ to create a ticket for the module.
 5. COPYRIGHT
 ------------
 
-Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 Version 2.x, Copyright (C) 2001, Paul Marquess.
 Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 
index 35ba9ed..e4d861e 100644 (file)
@@ -4,13 +4,13 @@
 #
 ################################################################################
 #
-#  $Revision: 10 $
+#  $Revision: 11 $
 #  $Author: mhx $
-#  $Date: 2008/01/04 10:47:37 +0100 $
+#  $Date: 2009/01/18 14:10:49 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
index 74a1682..49b7fbb 100644 (file)
@@ -5,13 +5,13 @@
 #
 ################################################################################
 #
-#  $Revision: 14 $
+#  $Revision: 15 $
 #  $Author: mhx $
-#  $Date: 2008/04/13 13:49:37 +0200 $
+#  $Date: 2009/01/18 14:10:50 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
@@ -528,7 +528,7 @@ options, use:
 
 =head1 COPYRIGHT
 
-Copyright (c) 2004-2008, Marcus Holland-Moritz.
+Copyright (c) 2004-2009, Marcus Holland-Moritz.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index a94c634..a87c172 100644 (file)
@@ -4,13 +4,13 @@
 #
 ################################################################################
 #
-#  $Revision: 4 $
+#  $Revision: 5 $
 #  $Author: mhx $
-#  $Date: 2008/01/04 10:47:38 +0100 $
+#  $Date: 2009/01/18 14:10:50 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
index 5f7ad93..a4de2b4 100644 (file)
@@ -5,13 +5,13 @@
 #
 ################################################################################
 #
-#  $Revision: 11 $
+#  $Revision: 13 $
 #  $Author: mhx $
-#  $Date: 2008/01/04 10:47:39 +0100 $
+#  $Date: 2009/01/18 14:10:50 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
@@ -65,7 +65,7 @@ if isperlroot $PERLROOT; then
   cat >$OUTPUT <<EOF
 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 :
-:  !!!!! Do NOT edit this file directly! -- Edit PPPort_pm.PL instead. !!!!!
+:  !!!! Do NOT edit this file directly! -- Edit devel/mkapidoc.sh instead. !!!!
 :
 :  This file was automatically generated from the API documentation scattered
 :  all over the Perl source code. To learn more about how all this works,
index 2981926..d2bf8b8 100644 (file)
@@ -5,13 +5,13 @@
 #
 ################################################################################
 #
-#  $Revision: 15 $
+#  $Revision: 16 $
 #  $Author: mhx $
-#  $Date: 2008/01/04 10:47:39 +0100 $
+#  $Date: 2009/01/18 14:10:50 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
index b8414c2..156a1c8 100644 (file)
@@ -5,13 +5,13 @@
 #
 ################################################################################
 #
-#  $Revision: 15 $
+#  $Revision: 16 $
 #  $Author: mhx $
-#  $Date: 2008/01/04 10:47:39 +0100 $
+#  $Date: 2009/01/18 14:10:51 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
index 8bb1106..3176505 100644 (file)
@@ -5,13 +5,13 @@
 #
 ################################################################################
 #
-#  $Revision: 7 $
+#  $Revision: 8 $
 #  $Author: mhx $
-#  $Date: 2008/01/04 10:47:39 +0100 $
+#  $Date: 2009/01/18 14:10:50 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
@@ -148,7 +148,7 @@ regenerate - Automatically regeneate Devel::PPPort's API information
 
 =head1 COPYRIGHT
 
-Copyright (c) 2006-2008, Marcus Holland-Moritz.
+Copyright (c) 2006-2009, Marcus Holland-Moritz.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index 7fcfed5..19d2944 100644 (file)
@@ -5,13 +5,13 @@
 #
 ################################################################################
 #
-#  $Revision: 8 $
+#  $Revision: 9 $
 #  $Author: mhx $
-#  $Date: 2008/01/04 10:47:39 +0100 $
+#  $Date: 2009/01/18 14:10:50 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
index a5dca2f..a4f6f92 100644 (file)
@@ -4,13 +4,13 @@
 #
 ################################################################################
 #
-#  $Revision: 29 $
+#  $Revision: 30 $
 #  $Author: mhx $
-#  $Date: 2008/01/04 10:47:37 +0100 $
+#  $Date: 2009/01/18 14:10:49 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
index a007393..e5f4ef6 100644 (file)
@@ -4,13 +4,13 @@
 *
 ********************************************************************************
 *
-*  $Revision: 11 $
+*  $Revision: 12 $
 *  $Author: mhx $
-*  $Date: 2008/10/12 20:53:51 +0200 $
+*  $Date: 2009/01/18 14:10:49 +0100 $
 *
 ********************************************************************************
 *
-*  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+*  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 *  Version 2.x, Copyright (C) 2001, Paul Marquess.
 *  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 *
index 50ea2de..bcfbcd0 100644 (file)
@@ -4,13 +4,13 @@
 *
 ********************************************************************************
 *
-*  $Revision: 11 $
+*  $Revision: 12 $
 *  $Author: mhx $
-*  $Date: 2008/10/12 20:53:51 +0200 $
+*  $Date: 2009/01/18 14:10:49 +0100 $
 *
 ********************************************************************************
 *
-*  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+*  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 *  Version 2.x, Copyright (C) 2001, Paul Marquess.
 *  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 *
index 99063e4..3590142 100644 (file)
@@ -5,13 +5,13 @@
 #
 ################################################################################
 #
-#  $Revision: 33 $
+#  $Revision: 34 $
 #  $Author: mhx $
-#  $Date: 2008/10/30 01:47:30 +0100 $
+#  $Date: 2009/01/18 14:10:51 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
index a6896bb..63b9746 100644 (file)
@@ -302,7 +302,7 @@ mn|GV *|PL_DBsub
 mn|GV*|PL_last_in_gv
 mn|SV *|PL_DBsingle
 mn|SV *|PL_DBtrace
-mn|GV*|PL_ofsgv
+mn|SV*|PL_ofs_sv
 mn|SV*|PL_rs
 ms||djSP
 m|STRLEN|PAD_COMPNAME_GEN|PADOFFSET po
index 55fd6e7..d67af01 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 15 $
+##  $Revision: 16 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:43 +0100 $
+##  $Date: 2009/01/18 14:10:55 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 8adc20f..e81fb68 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 21 $
+##  $Revision: 22 $
 ##  $Author: mhx $
-##  $Date: 2008/10/12 20:51:06 +0200 $
+##  $Date: 2009/01/18 14:10:54 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 9c72715..46c5deb 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 4 $
+##  $Revision: 5 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 14:54:44 +0100 $
+##  $Date: 2009/01/18 14:10:52 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 092700a..95cf2d6 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 6 $
+##  $Revision: 7 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:41 +0100 $
+##  $Date: 2009/01/18 14:10:53 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 013c0f1..a93e55b 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 17 $
+##  $Revision: 18 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 14:54:42 +0100 $
+##  $Date: 2009/01/18 14:10:53 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 408021d..7c86741 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 7 $
+##  $Revision: 8 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:42 +0100 $
+##  $Date: 2009/01/18 14:10:54 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 5c7d6f9..122277b 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 6 $
+##  $Revision: 7 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:41 +0100 $
+##  $Date: 2009/01/18 14:10:53 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index ef167f1..d396704 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 8 $
+##  $Revision: 9 $
 ##  $Author: mhx $
-##  $Date: 2008/04/13 13:51:18 +0200 $
+##  $Date: 2009/01/18 14:10:55 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index e7a0f6a..5e32f8e 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 15 $
+##  $Revision: 16 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:44 +0100 $
+##  $Date: 2009/01/18 14:10:55 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 879fc46..25b3940 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 6 $
+##  $Revision: 7 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:42 +0100 $
+##  $Date: 2009/01/18 14:10:54 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 30ec8f3..3613058 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 10 $
+##  $Revision: 11 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 13:11:16 +0100 $
+##  $Date: 2009/01/18 14:10:54 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 233a9a4..3172171 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 16 $
+##  $Revision: 17 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:44 +0100 $
+##  $Date: 2009/01/18 14:10:55 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index cfef37e..761d80c 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 4 $
+##  $Revision: 5 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:41 +0100 $
+##  $Date: 2009/01/18 14:10:53 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index ac09a54..c1da3bf 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 48 $
+##  $Revision: 50 $
 ##  $Author: mhx $
-##  $Date: 2008/10/30 01:46:33 +0100 $
+##  $Date: 2009/01/18 14:10:55 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
@@ -162,6 +162,7 @@ __UNDEFINED__  boolSV(b)    ((b) ? &PL_sv_yes : &PL_sv_no)
 /* DEFSV appears first in 5.004_56 */
 __UNDEFINED__  DEFSV       GvSV(PL_defgv)
 __UNDEFINED__  SAVE_DEFSV   SAVESPTR(GvSV(PL_defgv))
+__UNDEFINED__  DEFSV_set(sv) (GvSV(PL_defgv) = (sv))
 
 /* Older perls (<=5.003) lack AvFILLp */
 __UNDEFINED__  AvFILLp      AvFILL
@@ -384,6 +385,19 @@ DEFSV()
        OUTPUT:
                RETVAL
 
+void
+DEFSV_modify()
+       PPCODE:
+               XPUSHs(sv_mortalcopy(DEFSV));
+               ENTER;
+               SAVE_DEFSV;
+               DEFSV_set(newSVpvs("DEFSV"));
+               XPUSHs(sv_mortalcopy(DEFSV));
+               sv_2mortal(DEFSV);
+               LEAVE;
+               XPUSHs(sv_mortalcopy(DEFSV));
+               XSRETURN(3);
+
 int
 ERRSV()
        CODE:
@@ -441,7 +455,7 @@ Perl_ppaddr_t(string)
                LEAVE;
                XSRETURN(1);
 
-=tests plan => 33
+=tests plan => 38
 
 use vars qw($my_sv @my_av %my_hv);
 
@@ -464,6 +478,15 @@ else {
   ok(1);
 }
 
+my @r = &Devel::PPPort::DEFSV_modify();
+
+ok(@r == 3);
+ok($r[0], 'Fred');
+ok($r[1], 'DEFSV');
+ok($r[2], 'Fred');
+
+ok(&Devel::PPPort::DEFSV(), "Fred");
+
 eval { 1 };
 ok(!&Devel::PPPort::ERRSV());
 eval { cannot_call_this_one() };
index 5eda721..4b266d7 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 14 $
+##  $Revision: 15 $
 ##  $Author: mhx $
-##  $Date: 2008/10/12 19:02:04 +0200 $
+##  $Date: 2009/01/18 14:10:55 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index d786780..1467d1a 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 8 $
+##  $Revision: 9 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:43 +0100 $
+##  $Date: 2009/01/18 14:10:55 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index aaaed46..3a38549 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 5 $
+##  $Revision: 6 $
 ##  $Author: mhx $
-##  $Date: 2008/10/21 23:14:47 +0200 $
+##  $Date: 2009/01/18 14:10:51 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 1466a60..ceea0cf 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 8 $
+##  $Revision: 9 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:40 +0100 $
+##  $Date: 2009/01/18 14:10:52 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 838a4e1..583f266 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 48 $
+##  $Revision: 50 $
 ##  $Author: mhx $
-##  $Date: 2008/10/12 19:02:39 +0200 $
+##  $Date: 2009/01/18 14:10:54 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
@@ -791,7 +791,7 @@ sub strip
 if (\@ARGV && \$ARGV[0] eq '--unstrip') {
   eval { require Devel::PPPort };
   \$@ and die "Cannot require Devel::PPPort, please install.\\n";
-  if (\$Devel::PPPort::VERSION < $VERSION) {
+  if (eval \$Devel::PPPort::VERSION < $VERSION) {
     die "$0 was originally generated with Devel::PPPort $VERSION.\\n"
       . "Your Devel::PPPort is only version \$Devel::PPPort::VERSION.\\n"
       . "Please install a newer version, or --unstrip will not work.\\n";
index 5d5f4e6..62d4841 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 31 $
+##  $Revision: 32 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:42 +0100 $
+##  $Date: 2009/01/18 14:10:54 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
@@ -336,7 +336,7 @@ module from CPAN.
 
 =head1 COPYRIGHT
 
-Version 3.x, Copyright (c) 2004-2008, Marcus Holland-Moritz.
+Version 3.x, Copyright (c) 2004-2009, Marcus Holland-Moritz.
 
 Version 2.x, Copyright (C) 2001, Paul Marquess.
 
index 3afec7b..8162aa0 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 44 $
+##  $Revision: 45 $
 ##  $Author: mhx $
-##  $Date: 2008/10/12 20:53:51 +0200 $
+##  $Date: 2009/01/18 14:10:53 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 161a49b..c7e4c1e 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 4 $
+##  $Revision: 5 $
 ##  $Author: mhx $
-##  $Date: 2008/10/31 08:15:55 +0100 $
+##  $Date: 2009/01/18 14:10:51 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 0262adb..73bc9fb 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 8 $
+##  $Revision: 9 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 12:02:59 +0100 $
+##  $Date: 2009/01/18 14:10:52 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 4c36c99..db779be 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 4 $
+##  $Revision: 5 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:40 +0100 $
+##  $Date: 2009/01/18 14:10:52 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 9c92310..310bfba 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 5 $
+##  $Revision: 6 $
 ##  $Author: mhx $
-##  $Date: 2008/08/01 23:26:01 +0200 $
+##  $Date: 2009/01/18 14:10:52 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index bb9617f..6756f9a 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 1 $
+##  $Revision: 2 $
 ##  $Author: mhx $
-##  $Date: 2008/07/13 19:13:58 +0200 $
+##  $Date: 2009/01/18 14:10:51 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index c4802e3..d351703 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 5 $
+##  $Revision: 6 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 14:54:44 +0100 $
+##  $Date: 2009/01/18 14:10:52 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index ea474fa..3c990c6 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 9 $
+##  $Revision: 10 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:41 +0100 $
+##  $Date: 2009/01/18 14:10:53 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index fe5a153..518bdf1 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 10 $
+##  $Revision: 11 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:42 +0100 $
+##  $Date: 2009/01/18 14:10:53 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index d638fb8..5fdec7a 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 16 $
+##  $Revision: 17 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:42 +0100 $
+##  $Date: 2009/01/18 14:10:54 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index b9bcd13..3058412 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 18 $
+##  $Revision: 19 $
 ##  $Author: mhx $
-##  $Date: 2008/10/21 23:15:31 +0200 $
+##  $Date: 2009/01/18 14:10:53 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index cd5ae18..ca8d8a6 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 9 $
+##  $Revision: 10 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:43 +0100 $
+##  $Date: 2009/01/18 14:10:54 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index cdcf71c..76bd881 100644 (file)
@@ -1,12 +1,12 @@
 ################################################################################
 ##
-##  $Revision: 6 $
+##  $Revision: 7 $
 ##  $Author: mhx $
-##  $Date: 2008/01/04 10:47:41 +0100 $
+##  $Date: 2009/01/18 14:10:52 +0100 $
 ##
 ################################################################################
 ##
-##  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
index 5348fb6..567955e 100644 (file)
@@ -4,13 +4,13 @@
 :
 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 :
-:  $Revision: 2 $
+:  $Revision: 3 $
 :  $Author: mhx $
-:  $Date: 2008/01/04 10:47:39 +0100 $
+:  $Date: 2009/01/18 14:10:51 +0100 $
 :
 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 :
-:  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+:  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 :  Version 2.x, Copyright (C) 2001, Paul Marquess.
 :  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 :
index b81c8aa..36830eb 100644 (file)
@@ -4,13 +4,13 @@
 #
 ################################################################################
 #
-#  $Revision: 26 $
+#  $Revision: 27 $
 #  $Author: mhx $
-#  $Date: 2008/10/12 19:03:01 +0200 $
+#  $Date: 2009/01/18 14:10:51 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
index b9a3c78..02ee38c 100644 (file)
@@ -7,13 +7,13 @@
 #
 ################################################################################
 #
-#  $Revision: 18 $
+#  $Revision: 19 $
 #  $Author: mhx $
-#  $Date: 2008/01/04 10:47:38 +0100 $
+#  $Date: 2009/01/18 14:10:50 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
@@ -33,7 +33,7 @@ use File::Find;
 use List::Util qw(max);
 use Config;
 
-my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.14_05 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.15 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 $| = 1;
 my %OPT = (
@@ -589,7 +589,7 @@ going on, use the I<--verbose> option:
 
 =head1 COPYRIGHT
 
-Version 3.x, Copyright (c) 2004-2008, Marcus Holland-Moritz.
+Version 3.x, Copyright (c) 2004-2009, Marcus Holland-Moritz.
 
 Version 2.x, Copyright (C) 2001, Paul Marquess.
 
index 57ed4df..bbcf4b3 100644 (file)
@@ -30,9 +30,9 @@ BEGIN {
     require 'testutil.pl' if $@;
   }
 
-  if (33) {
+  if (38) {
     load();
-    plan(tests => 33);
+    plan(tests => 38);
   }
 }
 
@@ -69,6 +69,15 @@ else {
   ok(1);
 }
 
+my @r = &Devel::PPPort::DEFSV_modify();
+
+ok(@r == 3);
+ok($r[0], 'Fred');
+ok($r[1], 'DEFSV');
+ok($r[2], 'Fred');
+
+ok(&Devel::PPPort::DEFSV(), "Fred");
+
 eval { 1 };
 ok(!&Devel::PPPort::ERRSV());
 eval { cannot_call_this_one() };
index c2030c1..f2118a8 100644 (file)
@@ -4,13 +4,13 @@
 #
 ################################################################################
 #
-#  $Revision: 7 $
+#  $Revision: 8 $
 #  $Author: mhx $
-#  $Date: 2008/01/04 10:47:37 +0100 $
+#  $Date: 2009/01/18 14:10:48 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #