r68578 - in /branches/upstream/libpackage-stash-perl/current: ./ bin/ lib/Package/ lib/Package/Stash/ t/ t/lib/

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Mon Feb 14 01:59:06 UTC 2011


Author: jawnsy-guest
Date: Mon Feb 14 01:58:45 2011
New Revision: 68578

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68578
Log:
[svn-upgrade] new version libpackage-stash-perl (0.25)

Added:
    branches/upstream/libpackage-stash-perl/current/t/author-20-leaks.t
    branches/upstream/libpackage-stash-perl/current/t/author-21-leaks-debug.t
    branches/upstream/libpackage-stash-perl/current/t/lib/CompileTime.pm
Removed:
    branches/upstream/libpackage-stash-perl/current/t/20-leaks.t
    branches/upstream/libpackage-stash-perl/current/t/21-leaks-debug.t
Modified:
    branches/upstream/libpackage-stash-perl/current/Changes
    branches/upstream/libpackage-stash-perl/current/MANIFEST
    branches/upstream/libpackage-stash-perl/current/META.json
    branches/upstream/libpackage-stash-perl/current/META.yml
    branches/upstream/libpackage-stash-perl/current/Makefile.PL
    branches/upstream/libpackage-stash-perl/current/README
    branches/upstream/libpackage-stash-perl/current/bin/package-stash-conflicts
    branches/upstream/libpackage-stash-perl/current/dist.ini
    branches/upstream/libpackage-stash-perl/current/lib/Package/Stash.pm
    branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/Conflicts.pm
    branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/PP.pm
    branches/upstream/libpackage-stash-perl/current/t/07-edge-cases.t

Modified: branches/upstream/libpackage-stash-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/Changes?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/Changes (original)
+++ branches/upstream/libpackage-stash-perl/current/Changes Mon Feb 14 01:58:45 2011
@@ -1,4 +1,22 @@
 Revision history for Package-Stash
+
+0.25  2011-01-25
+      - make the leak tests author-only, since some smokers run release tests
+
+0.24  2011-01-17
+      - oops, i did need the Test::Requires dep
+
+0.23  2011-01-11
+      - lower perl prereq to 5.8.1 (ribasushi)
+      - make the leak tests release-only, since they keep randomly failing on
+        platforms i don't have access to. people are encouraged to submit
+        patches for these if they are affected.
+
+0.22  2011-01-05
+      - bump ::XS dep again
+
+0.21  2011-01-05
+      - bump Package::Stash::XS dep, since a bug was fixed there
 
 0.20  2011-01-03
       - one more fix for the Conflicts plugin

Modified: branches/upstream/libpackage-stash-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/MANIFEST?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/MANIFEST (original)
+++ branches/upstream/libpackage-stash-perl/current/MANIFEST Mon Feb 14 01:58:45 2011
@@ -20,13 +20,14 @@
 t/06-addsub.t
 t/07-edge-cases.t
 t/10-synopsis.t
-t/20-leaks.t
-t/21-leaks-debug.t
+t/author-20-leaks.t
+t/author-21-leaks-debug.t
 t/impl-selection/01-choice.t
 t/impl-selection/02-env.t
 t/impl-selection/03-var.t
 t/impl-selection/10-basic-pp.t
 t/impl-selection/11-basic-xs.t
+t/lib/CompileTime.pm
 t/lib/Package/Stash.pm
 t/release-eol.t
 t/release-no-tabs.t

Modified: branches/upstream/libpackage-stash-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/META.json?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/META.json (original)
+++ branches/upstream/libpackage-stash-perl/current/META.json Mon Feb 14 01:58:45 2011
@@ -4,7 +4,7 @@
       "Jesse Luehrs <doy at tozt dot net>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "Dist::Zilla version 4.200001, CPAN::Meta::Converter version 2.101670",
+   "generated_by" : "Dist::Zilla version 4.200000, CPAN::Meta::Converter version 2.101670",
    "license" : [
       "perl_5"
    ],
@@ -16,22 +16,24 @@
    "prereqs" : {
       "configure" : {
          "requires" : {
-            "Dist::CheckConflicts" : "0.02",
+            "Dist::CheckConflicts" : "0.01",
             "ExtUtils::MakeMaker" : "6.31"
+         }
+      },
+      "develop" : {
+         "requires" : {
+            "Test::LeakTrace" : 0
          }
       },
       "runtime" : {
          "requires" : {
             "Package::DeprecationManager" : 0,
-            "Package::Stash::XS" : 0,
+            "Package::Stash::XS" : "0.21",
             "Scalar::Util" : 0,
-            "perl" : "v5.8.3"
+            "perl" : "v5.8.1"
          }
       },
       "test" : {
-         "recommends" : {
-            "Test::LeakTrace" : 0
-         },
          "requires" : {
             "Test::Fatal" : 0,
             "Test::More" : "0.88",
@@ -46,53 +48,53 @@
          "url" : "git://github.com/doy/package-stash.git"
       }
    },
-   "version" : "0.20",
+   "version" : "0.25",
    "x_Dist_Zilla" : {
       "plugins" : [
          {
             "class" : "Dist::Zilla::Plugin::GatherDir",
             "name" : "@DOY/GatherDir",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::PruneCruft",
             "name" : "@DOY/PruneCruft",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::ManifestSkip",
             "name" : "@DOY/ManifestSkip",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::MetaYAML",
             "name" : "@DOY/MetaYAML",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::License",
             "name" : "@DOY/License",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::Readme",
             "name" : "@DOY/Readme",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::ExtraTests",
             "name" : "@DOY/ExtraTests",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::ExecDir",
             "name" : "@DOY/ExecDir",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::ShareDir",
             "name" : "@DOY/ShareDir",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "inc::MMPackageStash",
@@ -102,32 +104,32 @@
          {
             "class" : "Dist::Zilla::Plugin::Manifest",
             "name" : "@DOY/Manifest",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::TestRelease",
             "name" : "@DOY/TestRelease",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::ConfirmRelease",
             "name" : "@DOY/ConfirmRelease",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::MetaConfig",
             "name" : "@DOY/MetaConfig",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::MetaJSON",
             "name" : "@DOY/MetaJSON",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::NextRelease",
             "name" : "@DOY/NextRelease",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::CheckChangesHasContent",
@@ -137,17 +139,17 @@
          {
             "class" : "Dist::Zilla::Plugin::PkgVersion",
             "name" : "@DOY/PkgVersion",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::PodCoverageTests",
             "name" : "@DOY/PodCoverageTests",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::PodSyntaxTests",
             "name" : "@DOY/PodSyntaxTests",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::NoTabsTests",
@@ -192,7 +194,7 @@
          {
             "class" : "Dist::Zilla::Plugin::UploadToCPAN",
             "name" : "@DOY/UploadToCPAN",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::Prereqs",
@@ -203,7 +205,7 @@
                }
             },
             "name" : "Prereqs",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::Prereqs",
@@ -214,43 +216,43 @@
                }
             },
             "name" : "TestRequires",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::Prereqs",
             "config" : {
                "Dist::Zilla::Plugin::Prereqs" : {
-                  "phase" : "test",
-                  "type" : "recommends"
+                  "phase" : "develop",
+                  "type" : "requires"
                }
             },
-            "name" : "TestRecommends",
-            "version" : "4.200001"
+            "name" : "DevelopRequires",
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::Conflicts",
             "name" : "Conflicts",
-            "version" : null
+            "version" : "0.04"
          },
          {
             "class" : "Dist::Zilla::Plugin::FinderCode",
             "name" : ":InstallModules",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::FinderCode",
             "name" : ":TestFiles",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::FinderCode",
             "name" : ":ExecFiles",
-            "version" : "4.200001"
+            "version" : "4.200000"
          },
          {
             "class" : "Dist::Zilla::Plugin::FinderCode",
             "name" : ":ShareFiles",
-            "version" : "4.200001"
+            "version" : "4.200000"
          }
       ],
       "zilla" : {
@@ -258,7 +260,7 @@
          "config" : {
             "is_trial" : 0
          },
-         "version" : "4.200001"
+         "version" : "4.200000"
       }
    },
    "x_conflicts" : {

Modified: branches/upstream/libpackage-stash-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/META.yml?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/META.yml (original)
+++ branches/upstream/libpackage-stash-perl/current/META.yml Mon Feb 14 01:58:45 2011
@@ -7,10 +7,10 @@
   Test::More: 0.88
   Test::Requires: 0
 configure_requires:
-  Dist::CheckConflicts: 0.02
+  Dist::CheckConflicts: 0.01
   ExtUtils::MakeMaker: 6.31
 dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.200001, CPAN::Meta::Converter version 2.101670'
+generated_by: 'Dist::Zilla version 4.200000, CPAN::Meta::Converter version 2.101670'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -18,50 +18,50 @@
 name: Package-Stash
 requires:
   Package::DeprecationManager: 0
-  Package::Stash::XS: 0
+  Package::Stash::XS: 0.21
   Scalar::Util: 0
-  perl: 5.8.3
+  perl: 5.8.1
 resources:
   repository: git://github.com/doy/package-stash.git
-version: 0.20
+version: 0.25
 x_Dist_Zilla:
   plugins:
     -
       class: Dist::Zilla::Plugin::GatherDir
       name: '@DOY/GatherDir'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::PruneCruft
       name: '@DOY/PruneCruft'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::ManifestSkip
       name: '@DOY/ManifestSkip'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::MetaYAML
       name: '@DOY/MetaYAML'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::License
       name: '@DOY/License'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::Readme
       name: '@DOY/Readme'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::ExtraTests
       name: '@DOY/ExtraTests'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::ExecDir
       name: '@DOY/ExecDir'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::ShareDir
       name: '@DOY/ShareDir'
-      version: 4.200001
+      version: 4.200000
     -
       class: inc::MMPackageStash
       name: '@DOY/=inc::MMPackageStash'
@@ -69,27 +69,27 @@
     -
       class: Dist::Zilla::Plugin::Manifest
       name: '@DOY/Manifest'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::TestRelease
       name: '@DOY/TestRelease'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::ConfirmRelease
       name: '@DOY/ConfirmRelease'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::MetaConfig
       name: '@DOY/MetaConfig'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::MetaJSON
       name: '@DOY/MetaJSON'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::NextRelease
       name: '@DOY/NextRelease'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::CheckChangesHasContent
       name: '@DOY/CheckChangesHasContent'
@@ -97,15 +97,15 @@
     -
       class: Dist::Zilla::Plugin::PkgVersion
       name: '@DOY/PkgVersion'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::PodCoverageTests
       name: '@DOY/PodCoverageTests'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::PodSyntaxTests
       name: '@DOY/PodSyntaxTests'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::NoTabsTests
       name: '@DOY/NoTabsTests'
@@ -141,7 +141,7 @@
     -
       class: Dist::Zilla::Plugin::UploadToCPAN
       name: '@DOY/UploadToCPAN'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::Prereqs
       config:
@@ -149,7 +149,7 @@
           phase: runtime
           type: requires
       name: Prereqs
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::Prereqs
       config:
@@ -157,40 +157,40 @@
           phase: test
           type: requires
       name: TestRequires
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::Prereqs
       config:
         Dist::Zilla::Plugin::Prereqs:
-          phase: test
-          type: recommends
-      name: TestRecommends
-      version: 4.200001
+          phase: develop
+          type: requires
+      name: DevelopRequires
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::Conflicts
       name: Conflicts
-      version: ~
+      version: 0.04
     -
       class: Dist::Zilla::Plugin::FinderCode
       name: ':InstallModules'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::FinderCode
       name: ':TestFiles'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::FinderCode
       name: ':ExecFiles'
-      version: 4.200001
+      version: 4.200000
     -
       class: Dist::Zilla::Plugin::FinderCode
       name: ':ShareFiles'
-      version: 4.200001
+      version: 4.200000
   zilla:
     class: Dist::Zilla::Dist::Builder
     config:
       is_trial: 0
-    version: 4.200001
+    version: 4.200000
 x_conflicts:
   Class::MOP: 1.08
   MooseX::Role::WithOverloading: 0.08

Modified: branches/upstream/libpackage-stash-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/Makefile.PL?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/Makefile.PL (original)
+++ branches/upstream/libpackage-stash-perl/current/Makefile.PL Mon Feb 14 01:58:45 2011
@@ -1,6 +1,6 @@
 # This Makefile.PL for  was generated by Dist::Zilla.
 # Don't edit it but the dist.ini used to construct it.
-BEGIN { require 5.8.3; }
+BEGIN { require 5.8.1; }
 use strict;
 use warnings;
 use ExtUtils::MakeMaker 6.31;
@@ -15,7 +15,7 @@
     'Test::Requires' => '0'
   },
   'CONFIGURE_REQUIRES' => {
-    'Dist::CheckConflicts' => '0.02',
+    'Dist::CheckConflicts' => '0.01',
     'ExtUtils::MakeMaker' => '6.31'
   },
   'DISTNAME' => 'Package-Stash',
@@ -26,10 +26,10 @@
   'NAME' => 'Package::Stash',
   'PREREQ_PM' => {
     'Package::DeprecationManager' => '0',
-    'Package::Stash::XS' => '0',
+    'Package::Stash::XS' => '0.21',
     'Scalar::Util' => '0'
   },
-  'VERSION' => '0.20',
+  'VERSION' => '0.25',
   'test' => {
     'TESTS' => 't/*.t t/impl-selection/*.t'
   }

Modified: branches/upstream/libpackage-stash-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/README?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/README (original)
+++ branches/upstream/libpackage-stash-perl/current/README Mon Feb 14 01:58:45 2011
@@ -1,7 +1,7 @@
 
 
 This archive contains the distribution Package-Stash,
-version 0.20:
+version 0.25:
 
   routines for manipulating stashes
 

Modified: branches/upstream/libpackage-stash-perl/current/bin/package-stash-conflicts
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/bin/package-stash-conflicts?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/bin/package-stash-conflicts (original)
+++ branches/upstream/libpackage-stash-perl/current/bin/package-stash-conflicts Mon Feb 14 01:58:45 2011
@@ -18,24 +18,3 @@
     print "$_\n" for map { $_->{package} } @conflicts;
     exit @conflicts;
 }
-
-__END__
-=pod
-
-=head1 NAME
-
-package-stash-conflicts
-
-=head1 VERSION
-
-version 0.20
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2011 by Jesse Luehrs.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-
-=cut
-

Modified: branches/upstream/libpackage-stash-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/dist.ini?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/dist.ini (original)
+++ branches/upstream/libpackage-stash-perl/current/dist.ini Mon Feb 14 01:58:45 2011
@@ -9,9 +9,9 @@
 awesome = =inc::MMPackageStash
 
 [Prereqs]
-perl = 5.8.3
+perl = 5.8.1
 Package::DeprecationManager = 0
-Package::Stash::XS = 0
+Package::Stash::XS = 0.21
 Scalar::Util = 0
 
 [Prereqs / TestRequires]
@@ -19,7 +19,7 @@
 Test::More = 0.88
 Test::Requires = 0
 
-[Prereqs / TestRecommends]
+[Prereqs / DevelopRequires]
 Test::LeakTrace = 0
 
 [Conflicts]

Modified: branches/upstream/libpackage-stash-perl/current/lib/Package/Stash.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/lib/Package/Stash.pm?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/lib/Package/Stash.pm (original)
+++ branches/upstream/libpackage-stash-perl/current/lib/Package/Stash.pm Mon Feb 14 01:58:45 2011
@@ -1,6 +1,6 @@
 package Package::Stash;
 BEGIN {
-  $Package::Stash::VERSION = '0.20';
+  $Package::Stash::VERSION = '0.25';
 }
 use strict;
 use warnings;
@@ -102,7 +102,7 @@
 
 =head1 VERSION
 
-version 0.20
+version 0.25
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/Conflicts.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/Conflicts.pm?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/Conflicts.pm (original)
+++ branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/Conflicts.pm Mon Feb 14 01:58:45 2011
@@ -16,28 +16,6 @@
         Package::Stash::XS
         Scalar::Util
     ) ],
-
 ;
 
 1;
-
-__END__
-=pod
-
-=head1 NAME
-
-Package::Stash::Conflicts
-
-=head1 VERSION
-
-version 0.20
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2011 by Jesse Luehrs.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-
-=cut
-

Modified: branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/PP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/PP.pm?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/PP.pm (original)
+++ branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/PP.pm Mon Feb 14 01:58:45 2011
@@ -1,6 +1,6 @@
 package Package::Stash::PP;
 BEGIN {
-  $Package::Stash::PP::VERSION = '0.20';
+  $Package::Stash::PP::VERSION = '0.25';
 }
 use strict;
 use warnings;
@@ -333,7 +333,7 @@
 
 =head1 VERSION
 
-version 0.20
+version 0.25
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libpackage-stash-perl/current/t/07-edge-cases.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/t/07-edge-cases.t?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/t/07-edge-cases.t (original)
+++ branches/upstream/libpackage-stash-perl/current/t/07-edge-cases.t Mon Feb 14 01:58:45 2011
@@ -3,6 +3,7 @@
 use warnings;
 use lib 't/lib';
 use Test::More;
+use Test::Fatal;
 
 use Package::Stash;
 
@@ -52,4 +53,17 @@
 is(ref($stash->get_symbol('$glob')), '', "nothing yet");
 is(ref($stash->get_or_add_symbol('$glob')), 'SCALAR', "got an empty scalar");
 
+my $Bar = Package::Stash->new('Bar');
+my $foo = 3;
+$foo =~ s/3/4/;
+my $bar = 4.5;
+$bar =~ s/4/5/;
+
+is(exception { $Bar->add_symbol('$foo', \$foo) }, undef,
+   "can add PVIV values");
+is(exception { $Bar->add_symbol('$bar', \$bar) }, undef,
+   "can add PVNV values");
+
+use_ok('CompileTime');
+
 done_testing;

Added: branches/upstream/libpackage-stash-perl/current/t/author-20-leaks.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/t/author-20-leaks.t?rev=68578&op=file
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/t/author-20-leaks.t (added)
+++ branches/upstream/libpackage-stash-perl/current/t/author-20-leaks.t Mon Feb 14 01:58:45 2011
@@ -1,0 +1,202 @@
+#!/usr/bin/env perl
+
+BEGIN {
+  unless ($ENV{AUTHOR_TESTING}) {
+    require Test::More;
+    Test::More::plan(skip_all => 'these tests are for testing by the author');
+  }
+}
+
+use strict;
+use warnings;
+use lib 't/lib';
+use Test::More;
+use Test::Fatal;
+use Test::LeakTrace;
+
+use Package::Stash;
+use Symbol;
+
+{
+    package Bar;
+}
+
+{
+    package Baz;
+    our $foo;
+    sub bar { }
+    use constant baz => 1;
+    our %quux = (a => 'b');
+}
+
+{
+    no_leaks_ok {
+        Package::Stash->new('Foo');
+    } "object construction doesn't leak";
+}
+
+{
+    no_leaks_ok {
+        Package::Stash->new('Bar');
+    } "object construction doesn't leak, with an existing package";
+}
+
+{
+    no_leaks_ok {
+        Package::Stash->new('Baz');
+    } "object construction doesn't leak, with an existing package with things in it";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    no_leaks_ok {
+        $foo->name;
+        $foo->namespace;
+    } "accessors don't leak";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    no_leaks_ok {
+        $foo->add_symbol('$scalar');
+        $foo->add_symbol('@array');
+        $foo->add_symbol('%hash');
+        $foo->add_symbol('io');
+    } "add_symbol doesn't leak";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    { local $TODO = $Package::Stash::IMPLEMENTATION eq 'PP'
+        ? "the pure perl implementation leaks here somehow"
+        : undef;
+    no_leaks_ok {
+        $foo->add_symbol('$scalar_init' => 1);
+        $foo->add_symbol('@array_init' => []);
+        $foo->add_symbol('%hash_init' => {});
+        $foo->add_symbol('&code_init' => sub { "foo" });
+        $foo->add_symbol('io_init' => Symbol::geniosym);
+    } "add_symbol doesn't leak";
+    }
+    is(exception {
+        is(Foo->code_init, 'foo', "sub installed correctly")
+    }, undef, "code_init exists");
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    no_leaks_ok {
+        $foo->remove_symbol('$scalar_init');
+        $foo->remove_symbol('@array_init');
+        $foo->remove_symbol('%hash_init');
+        $foo->remove_symbol('&code_init');
+        $foo->remove_symbol('io_init');
+    } "remove_symbol doesn't leak";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    $foo->add_symbol("${_}glob") for ('$', '@', '%', '&', '');
+    no_leaks_ok {
+        $foo->remove_glob('glob');
+    } "remove_glob doesn't leak";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    no_leaks_ok {
+        $foo->has_symbol('io');
+        $foo->has_symbol('%hash');
+        $foo->has_symbol('@array_init');
+        $foo->has_symbol('$glob');
+        $foo->has_symbol('&something_else');
+    } "has_symbol doesn't leak";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    no_leaks_ok {
+        $foo->get_symbol('io');
+        $foo->get_symbol('%hash');
+        $foo->get_symbol('@array_init');
+        $foo->get_symbol('$glob');
+        $foo->get_symbol('&something_else');
+    } "get_symbol doesn't leak";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    ok(!$foo->has_symbol('$glob'));
+    ok(!$foo->has_symbol('@array_init'));
+    no_leaks_ok {
+        $foo->get_or_add_symbol('io');
+        $foo->get_or_add_symbol('%hash');
+        my @super = ('Exporter');
+        @{$foo->get_or_add_symbol('@ISA')} = @super;
+        $foo->get_or_add_symbol('$glob');
+    } "get_or_add_symbol doesn't leak";
+    { local $TODO = ($] < 5.010 || $Package::Stash::IMPLEMENTATION eq 'PP')
+        ? "undef scalars aren't visible on 5.8, or from pure perl at all"
+        : undef;
+    ok($foo->has_symbol('$glob'));
+    }
+    is(ref($foo->get_symbol('$glob')), 'SCALAR');
+    ok($foo->has_symbol('@ISA'));
+    is(ref($foo->get_symbol('@ISA')), 'ARRAY');
+    is_deeply($foo->get_symbol('@ISA'), ['Exporter']);
+    isa_ok('Foo', 'Exporter');
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    my $baz = Package::Stash->new('Baz');
+    no_leaks_ok {
+        $foo->list_all_symbols;
+        $foo->list_all_symbols('SCALAR');
+        $foo->list_all_symbols('CODE');
+        $baz->list_all_symbols('CODE');
+    } "list_all_symbols doesn't leak";
+}
+
+{
+    package Blah;
+    use constant 'baz';
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    my $blah = Package::Stash->new('Blah');
+    no_leaks_ok {
+        $foo->get_all_symbols;
+        $foo->get_all_symbols('SCALAR');
+        $foo->get_all_symbols('CODE');
+        $blah->get_all_symbols('CODE');
+    } "get_all_symbols doesn't leak";
+}
+
+# mimic CMOP::create_anon_class
+{
+    local $TODO = $] < 5.010 ? "deleting stashes is inherently leaky on 5.8"
+                             : undef;
+    my $i = 0;
+    no_leaks_ok {
+        $i++;
+        eval "package Quux$i; 1;";
+        my $quux = Package::Stash->new("Quux$i");
+        $quux->get_or_add_symbol('@ISA');
+        delete $::{'Quux' . $i . '::'};
+    } "get_symbol doesn't leak during glob expansion";
+}
+
+{
+    local $TODO = ($Package::Stash::IMPLEMENTATION eq 'PP'
+                && $Carp::VERSION ge '1.17')
+        ? "Carp is leaky on 5.12.2 apparently?"
+        : undef;
+    my $foo = Package::Stash->new('Foo');
+    no_leaks_ok {
+        eval { $foo->get_or_add_symbol('&blorg') };
+    } "doesn't leak on errors";
+}
+
+done_testing;

Added: branches/upstream/libpackage-stash-perl/current/t/author-21-leaks-debug.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/t/author-21-leaks-debug.t?rev=68578&op=file
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/t/author-21-leaks-debug.t (added)
+++ branches/upstream/libpackage-stash-perl/current/t/author-21-leaks-debug.t Mon Feb 14 01:58:45 2011
@@ -1,0 +1,204 @@
+#!/usr/bin/env perl
+
+BEGIN {
+  unless ($ENV{AUTHOR_TESTING}) {
+    require Test::More;
+    Test::More::plan(skip_all => 'these tests are for testing by the author');
+  }
+}
+
+use strict;
+use warnings;
+use lib 't/lib';
+use Test::More;
+use Test::Fatal;
+use Test::LeakTrace;
+
+BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
+
+use Package::Stash;
+use Symbol;
+
+{
+    package Bar;
+}
+
+{
+    package Baz;
+    our $foo;
+    sub bar { }
+    use constant baz => 1;
+    our %quux = (a => 'b');
+}
+
+{
+    no_leaks_ok {
+        Package::Stash->new('Foo');
+    } "object construction doesn't leak";
+}
+
+{
+    no_leaks_ok {
+        Package::Stash->new('Bar');
+    } "object construction doesn't leak, with an existing package";
+}
+
+{
+    no_leaks_ok {
+        Package::Stash->new('Baz');
+    } "object construction doesn't leak, with an existing package with things in it";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    no_leaks_ok {
+        $foo->name;
+        $foo->namespace;
+    } "accessors don't leak";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    no_leaks_ok {
+        $foo->add_symbol('$scalar');
+        $foo->add_symbol('@array');
+        $foo->add_symbol('%hash');
+        $foo->add_symbol('io');
+    } "add_symbol doesn't leak";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    { local $TODO = $Package::Stash::IMPLEMENTATION eq 'PP'
+        ? "the pure perl implementation leaks here somehow"
+        : undef;
+    no_leaks_ok {
+        $foo->add_symbol('$scalar_init' => 1);
+        $foo->add_symbol('@array_init' => []);
+        $foo->add_symbol('%hash_init' => {});
+        $foo->add_symbol('&code_init' => sub { "foo" });
+        $foo->add_symbol('io_init' => Symbol::geniosym);
+    } "add_symbol doesn't leak";
+    }
+    is(exception {
+        is(Foo->code_init, 'foo', "sub installed correctly")
+    }, undef, "code_init exists");
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    no_leaks_ok {
+        $foo->remove_symbol('$scalar_init');
+        $foo->remove_symbol('@array_init');
+        $foo->remove_symbol('%hash_init');
+        $foo->remove_symbol('&code_init');
+        $foo->remove_symbol('io_init');
+    } "remove_symbol doesn't leak";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    $foo->add_symbol("${_}glob") for ('$', '@', '%', '&', '');
+    no_leaks_ok {
+        $foo->remove_glob('glob');
+    } "remove_glob doesn't leak";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    no_leaks_ok {
+        $foo->has_symbol('io');
+        $foo->has_symbol('%hash');
+        $foo->has_symbol('@array_init');
+        $foo->has_symbol('$glob');
+        $foo->has_symbol('&something_else');
+    } "has_symbol doesn't leak";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    no_leaks_ok {
+        $foo->get_symbol('io');
+        $foo->get_symbol('%hash');
+        $foo->get_symbol('@array_init');
+        $foo->get_symbol('$glob');
+        $foo->get_symbol('&something_else');
+    } "get_symbol doesn't leak";
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    ok(!$foo->has_symbol('$glob'));
+    ok(!$foo->has_symbol('@array_init'));
+    no_leaks_ok {
+        $foo->get_or_add_symbol('io');
+        $foo->get_or_add_symbol('%hash');
+        my @super = ('Exporter');
+        @{$foo->get_or_add_symbol('@ISA')} = @super;
+        $foo->get_or_add_symbol('$glob');
+    } "get_or_add_symbol doesn't leak";
+    { local $TODO = ($] < 5.010 || $Package::Stash::IMPLEMENTATION eq 'PP')
+        ? "undef scalars aren't visible on 5.8, or from pure perl at all"
+        : undef;
+    ok($foo->has_symbol('$glob'));
+    }
+    is(ref($foo->get_symbol('$glob')), 'SCALAR');
+    ok($foo->has_symbol('@ISA'));
+    is(ref($foo->get_symbol('@ISA')), 'ARRAY');
+    is_deeply($foo->get_symbol('@ISA'), ['Exporter']);
+    isa_ok('Foo', 'Exporter');
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    my $baz = Package::Stash->new('Baz');
+    no_leaks_ok {
+        $foo->list_all_symbols;
+        $foo->list_all_symbols('SCALAR');
+        $foo->list_all_symbols('CODE');
+        $baz->list_all_symbols('CODE');
+    } "list_all_symbols doesn't leak";
+}
+
+{
+    package Blah;
+    use constant 'baz';
+}
+
+{
+    my $foo = Package::Stash->new('Foo');
+    my $blah = Package::Stash->new('Blah');
+    no_leaks_ok {
+        $foo->get_all_symbols;
+        $foo->get_all_symbols('SCALAR');
+        $foo->get_all_symbols('CODE');
+        $blah->get_all_symbols('CODE');
+    } "get_all_symbols doesn't leak";
+}
+
+# mimic CMOP::create_anon_class
+{
+    local $TODO = $] < 5.010 ? "deleting stashes is inherently leaky on 5.8"
+                             : undef;
+    my $i = 0;
+    no_leaks_ok {
+        $i++;
+        eval "package Quux$i; 1;";
+        my $quux = Package::Stash->new("Quux$i");
+        $quux->get_or_add_symbol('@ISA');
+        delete $::{'Quux' . $i . '::'};
+    } "get_symbol doesn't leak during glob expansion";
+}
+
+{
+    local $TODO = ($Package::Stash::IMPLEMENTATION eq 'PP'
+                && $Carp::VERSION ge '1.17')
+        ? "Carp is leaky on 5.12.2 apparently?"
+        : undef;
+    my $foo = Package::Stash->new('Foo');
+    no_leaks_ok {
+        eval { $foo->get_or_add_symbol('&blorg') };
+    } "doesn't leak on errors";
+}
+
+done_testing;

Added: branches/upstream/libpackage-stash-perl/current/t/lib/CompileTime.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/t/lib/CompileTime.pm?rev=68578&op=file
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/t/lib/CompileTime.pm (added)
+++ branches/upstream/libpackage-stash-perl/current/t/lib/CompileTime.pm Mon Feb 14 01:58:45 2011
@@ -1,0 +1,15 @@
+package CompileTime;
+use strict;
+use warnings;
+
+use Package::Stash;
+
+our $foo = 23;
+
+BEGIN {
+    my $stash = Package::Stash->new(__PACKAGE__);
+    $stash->add_symbol('$bar', $foo);
+    $stash->add_symbol('$baz', $stash->get_symbol('$foo'));
+}
+
+1;




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