r73544 - in /branches/upstream/libtest-refcount-perl/current: Build.PL Changes LICENSE META.yml Makefile.PL README lib/Test/Refcount.pm

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Mon Apr 25 16:59:14 UTC 2011


Author: gregoa
Date: Mon Apr 25 16:57:40 2011
New Revision: 73544

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=73544
Log:
[svn-upgrade] new version libtest-refcount-perl (0.07)

Modified:
    branches/upstream/libtest-refcount-perl/current/Build.PL
    branches/upstream/libtest-refcount-perl/current/Changes
    branches/upstream/libtest-refcount-perl/current/LICENSE
    branches/upstream/libtest-refcount-perl/current/META.yml
    branches/upstream/libtest-refcount-perl/current/Makefile.PL
    branches/upstream/libtest-refcount-perl/current/README
    branches/upstream/libtest-refcount-perl/current/lib/Test/Refcount.pm

Modified: branches/upstream/libtest-refcount-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-refcount-perl/current/Build.PL?rev=73544&op=diff
==============================================================================
--- branches/upstream/libtest-refcount-perl/current/Build.PL (original)
+++ branches/upstream/libtest-refcount-perl/current/Build.PL Mon Apr 25 16:57:40 2011
@@ -3,11 +3,10 @@
 
 use Module::Build;
 
-my $build = Module::Build->new
-  (
+my $build = Module::Build->new(
    module_name => 'Test::Refcount',
    requires => {
-      'Devel::Refcount' => 0,
+      'B' => 0,
       'Scalar::Util' => 0,
       'Test::Builder' => 0,
    },
@@ -19,6 +18,6 @@
    create_makefile_pl => 'traditional',
    create_license => 1,
    create_readme  => 1,
-  );
-  
+);
+
 $build->create_build_script;

Modified: branches/upstream/libtest-refcount-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-refcount-perl/current/Changes?rev=73544&op=diff
==============================================================================
--- branches/upstream/libtest-refcount-perl/current/Changes (original)
+++ branches/upstream/libtest-refcount-perl/current/Changes Mon Apr 25 16:57:40 2011
@@ -1,4 +1,8 @@
 Revision history for Test-Refcount
+
+0.07    CHANGES:
+         * Use pureperl core B module rather than Devel::Refcount, for
+           avoiding XS in the deptree of a Test module
 
 0.06    CHANGES:
          * Optionally use Devel::FindRef but don't depend on it being

Modified: branches/upstream/libtest-refcount-perl/current/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-refcount-perl/current/LICENSE?rev=73544&op=diff
==============================================================================
--- branches/upstream/libtest-refcount-perl/current/LICENSE (original)
+++ branches/upstream/libtest-refcount-perl/current/LICENSE Mon Apr 25 16:57:40 2011
@@ -1,4 +1,4 @@
-This software is copyright (c) 2009 by Paul Evans <leonerd at leonerd.org.uk>.
+This software is copyright (c) 2011 by Paul Evans <leonerd at leonerd.org.uk>.
 
 This is free software; you can redistribute it and/or modify it under
 the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@
 
 --- The GNU General Public License, Version 1, February 1989 ---
 
-This software is Copyright (c) 2009 by Paul Evans <leonerd at leonerd.org.uk>.
+This software is Copyright (c) 2011 by Paul Evans <leonerd at leonerd.org.uk>.
 
 This is free software, licensed under:
 
@@ -270,7 +270,7 @@
 
 --- The Artistic License 1.0 ---
 
-This software is Copyright (c) 2009 by Paul Evans <leonerd at leonerd.org.uk>.
+This software is Copyright (c) 2011 by Paul Evans <leonerd at leonerd.org.uk>.
 
 This is free software, licensed under:
 

Modified: branches/upstream/libtest-refcount-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-refcount-perl/current/META.yml?rev=73544&op=diff
==============================================================================
--- branches/upstream/libtest-refcount-perl/current/META.yml (original)
+++ branches/upstream/libtest-refcount-perl/current/META.yml Mon Apr 25 16:57:40 2011
@@ -1,26 +1,26 @@
 ---
-name: Test-Refcount
-version: 0.06
+abstract: 'assert reference counts on objects'
 author:
   - 'Paul Evans <leonerd at leonerd.org.uk>'
-abstract: assert reference counts on objects
-license: perl
-resources:
-  license: http://dev.perl.org/licenses/
 build_requires:
   Test::Builder::Tester: 0
   Test::More: 0
-requires:
-  Devel::Refcount: 0
-  Scalar::Util: 0
-  Test::Builder: 0
 configure_requires:
-  Module::Build: 0.35
+  Module::Build: 0.36
+generated_by: 'Module::Build version 0.3607'
+license: perl
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4
+name: Test-Refcount
 provides:
   Test::Refcount:
     file: lib/Test/Refcount.pm
-    version: 0.06
-generated_by: Module::Build version 0.35
-meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.4.html
-  version: 1.4
+    version: 0.07
+requires:
+  B: 0
+  Scalar::Util: 0
+  Test::Builder: 0
+resources:
+  license: http://dev.perl.org/licenses/
+version: 0.07

Modified: branches/upstream/libtest-refcount-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-refcount-perl/current/Makefile.PL?rev=73544&op=diff
==============================================================================
--- branches/upstream/libtest-refcount-perl/current/Makefile.PL (original)
+++ branches/upstream/libtest-refcount-perl/current/Makefile.PL Mon Apr 25 16:57:40 2011
@@ -1,11 +1,11 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.35
+# Note: this file was auto-generated by Module::Build::Compat version 0.3607
 use ExtUtils::MakeMaker;
 WriteMakefile
 (
           'NAME' => 'Test::Refcount',
           'VERSION_FROM' => 'lib/Test/Refcount.pm',
           'PREREQ_PM' => {
-                           'Devel::Refcount' => 0,
+                           'B' => 0,
                            'Scalar::Util' => 0,
                            'Test::Builder' => 0,
                            'Test::Builder::Tester' => 0,

Modified: branches/upstream/libtest-refcount-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-refcount-perl/current/README?rev=73544&op=diff
==============================================================================
--- branches/upstream/libtest-refcount-perl/current/README (original)
+++ branches/upstream/libtest-refcount-perl/current/README Mon Apr 25 16:57:40 2011
@@ -146,6 +146,10 @@
         during the lifetime of the test script, this is unlikely to cause
         any problems.
 
+ACKNOWLEDGEMENTS
+    Peter Rabbitson <ribasushi at cpan.org> - for suggesting using core's "B"
+    instead of "Devel::Refcount" to obtain refcounts
+
 AUTHOR
     Paul Evans <leonerd at leonerd.org.uk>
 

Modified: branches/upstream/libtest-refcount-perl/current/lib/Test/Refcount.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-refcount-perl/current/lib/Test/Refcount.pm?rev=73544&op=diff
==============================================================================
--- branches/upstream/libtest-refcount-perl/current/lib/Test/Refcount.pm (original)
+++ branches/upstream/libtest-refcount-perl/current/lib/Test/Refcount.pm Mon Apr 25 16:57:40 2011
@@ -1,7 +1,7 @@
 #  You may distribute under the terms of either the GNU General Public License
 #  or the Artistic License (the same terms as Perl itself)
 #
-#  (C) Paul Evans, 2008,2009 -- leonerd at leonerd.org.uk
+#  (C) Paul Evans, 2008-2011 -- leonerd at leonerd.org.uk
 
 package Test::Refcount;
 
@@ -10,10 +10,9 @@
 use base qw( Test::Builder::Module );
 
 use Scalar::Util qw( weaken );
-
-use Devel::Refcount qw( refcount );
-
-our $VERSION = '0.06';
+use B qw( svref_2object );
+
+our $VERSION = '0.07';
 
 our @EXPORT = qw(
    is_refcount
@@ -84,7 +83,7 @@
 
    weaken $object; # So this reference itself doesn't show up
 
-   my $REFCNT = refcount($object);
+   my $REFCNT = svref_2object($object)->REFCNT;
 
    my $ok = $tb->ok( $REFCNT == $count, $name );
 
@@ -110,11 +109,6 @@
    splice( @_, 1, 0, ( 1 ) );
    goto &is_refcount;
 }
-
-# Keep perl happy; keep Britain tidy
-1;
-
-__END__
 
 =head1 EXAMPLE
 
@@ -225,6 +219,15 @@
 
 =back
 
+=head1 ACKNOWLEDGEMENTS
+
+Peter Rabbitson <ribasushi at cpan.org> - for suggesting using core's C<B>
+instead of C<Devel::Refcount> to obtain refcounts
+
 =head1 AUTHOR
 
 Paul Evans <leonerd at leonerd.org.uk>
+
+=cut
+
+0x55AA;




More information about the Pkg-perl-cvs-commits mailing list