r67044 - in /trunk/libnamespace-clean-perl: Changes LICENSE META.json META.yml Makefile.PL README debian/changelog debian/control debian/copyright dist.ini lib/namespace/clean.pm
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Wed Jan 5 13:04:57 UTC 2011
Author: ansgar
Date: Wed Jan 5 13:04:45 2011
New Revision: 67044
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=67044
Log:
* New upstream release.
* Bump (build-)dep on libpackage-stash-perl to >= 0.18.
* debian/copyright: Update for new upstream release; refer to
/usr/share/common-licenses/GPL-1; refer to "Debian systems" instead of
"Debian GNU/Linux systems".
Modified:
trunk/libnamespace-clean-perl/Changes
trunk/libnamespace-clean-perl/LICENSE
trunk/libnamespace-clean-perl/META.json
trunk/libnamespace-clean-perl/META.yml
trunk/libnamespace-clean-perl/Makefile.PL
trunk/libnamespace-clean-perl/README
trunk/libnamespace-clean-perl/debian/changelog
trunk/libnamespace-clean-perl/debian/control
trunk/libnamespace-clean-perl/debian/copyright
trunk/libnamespace-clean-perl/dist.ini
trunk/libnamespace-clean-perl/lib/namespace/clean.pm
Modified: trunk/libnamespace-clean-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnamespace-clean-perl/Changes?rev=67044&op=diff
==============================================================================
--- trunk/libnamespace-clean-perl/Changes (original)
+++ trunk/libnamespace-clean-perl/Changes Wed Jan 5 13:04:45 2011
@@ -1,3 +1,8 @@
+ [0.19]
+ - Port to the new Package::Stash 0.18 API and depend on it.
+ - Don't rely on package::stash's remove_package_symbol implementation
+ (doy).
+
[0.18]
- Make sure we continue working on future Package::Stash
versions (doy).
Modified: trunk/libnamespace-clean-perl/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnamespace-clean-perl/LICENSE?rev=67044&op=diff
==============================================================================
--- trunk/libnamespace-clean-perl/LICENSE (original)
+++ trunk/libnamespace-clean-perl/LICENSE Wed Jan 5 13:04:45 2011
@@ -1,4 +1,4 @@
-This software is copyright (c) 2010 by Robert 'phaylon' Sedlacek.
+This software is copyright (c) 2011 by Robert 'phaylon' Sedlacek.
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) 2010 by Robert 'phaylon' Sedlacek.
+This software is Copyright (c) 2011 by Robert 'phaylon' Sedlacek.
This is free software, licensed under:
@@ -270,7 +270,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2010 by Robert 'phaylon' Sedlacek.
+This software is Copyright (c) 2011 by Robert 'phaylon' Sedlacek.
This is free software, licensed under:
Modified: trunk/libnamespace-clean-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnamespace-clean-perl/META.json?rev=67044&op=diff
==============================================================================
--- trunk/libnamespace-clean-perl/META.json (original)
+++ trunk/libnamespace-clean-perl/META.json Wed Jan 5 13:04:45 2011
@@ -6,7 +6,7 @@
"Jesse Luehrs <doy at tozt.net>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.101612, CPAN::Meta::Converter version 2.101600",
+ "generated_by" : "Dist::Zilla version 4.200000, CPAN::Meta::Converter version 2.102400",
"license" : [
"perl_5"
],
@@ -24,7 +24,7 @@
"runtime" : {
"requires" : {
"B::Hooks::EndOfScope" : "0.07",
- "Package::Stash" : "0.03",
+ "Package::Stash" : "0.18",
"Sub::Identify" : "0.04",
"Sub::Name" : "0.04",
"vars" : 0
@@ -52,98 +52,98 @@
"web" : "http://github.com/rafl/namespace-clean"
}
},
- "version" : "0.18",
+ "version" : "0.19",
"x_Dist_Zilla" : {
"plugins" : [
{
"class" : "Dist::Zilla::Plugin::GatherDir",
"name" : "@FLORA/@Basic/GatherDir",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::PruneCruft",
"name" : "@FLORA/@Basic/PruneCruft",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::ManifestSkip",
"name" : "@FLORA/@Basic/ManifestSkip",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::MetaYAML",
"name" : "@FLORA/@Basic/MetaYAML",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::License",
"name" : "@FLORA/@Basic/License",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::Readme",
"name" : "@FLORA/@Basic/Readme",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::ExtraTests",
"name" : "@FLORA/@Basic/ExtraTests",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::ExecDir",
"name" : "@FLORA/@Basic/ExecDir",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::ShareDir",
"name" : "@FLORA/@Basic/ShareDir",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::MakeMaker",
"name" : "@FLORA/@Basic/MakeMaker",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::Manifest",
"name" : "@FLORA/@Basic/Manifest",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::TestRelease",
"name" : "@FLORA/@Basic/TestRelease",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::ConfirmRelease",
"name" : "@FLORA/@Basic/ConfirmRelease",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::UploadToCPAN",
"name" : "@FLORA/@Basic/UploadToCPAN",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::MetaConfig",
"name" : "@FLORA/MetaConfig",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::MetaJSON",
"name" : "@FLORA/MetaJSON",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::PkgVersion",
"name" : "@FLORA/PkgVersion",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::PodSyntaxTests",
"name" : "@FLORA/PodSyntaxTests",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::NoTabsTests",
@@ -153,17 +153,17 @@
{
"class" : "Dist::Zilla::Plugin::PodCoverageTests",
"name" : "@FLORA/PodCoverageTests",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::MetaResources",
"name" : "@FLORA/MetaResources",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::Authority",
"name" : "@FLORA/Authority",
- "version" : "1.000"
+ "version" : "1.002"
},
{
"class" : "Dist::Zilla::Plugin::EOLTests",
@@ -173,40 +173,40 @@
{
"class" : "Dist::Zilla::Plugin::PodWeaver",
"name" : "@FLORA/PodWeaver",
- "version" : "3.101530"
+ "version" : "3.101641"
},
{
"class" : "Dist::Zilla::Plugin::AutoPrereq",
"name" : "AutoPrereq",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":InstallModules",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":TestFiles",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ExecFiles",
- "version" : "4.101612"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ShareFiles",
- "version" : "4.101612"
+ "version" : "4.200000"
}
],
"zilla" : {
- "class" : "Dist::Zilla",
+ "class" : "Dist::Zilla::Dist::Builder",
"config" : {
"is_trial" : 0
},
- "version" : "4.101612"
+ "version" : "4.200000"
}
},
"x_authority" : "cpan:PHAYLON"
Modified: trunk/libnamespace-clean-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnamespace-clean-perl/META.yml?rev=67044&op=diff
==============================================================================
--- trunk/libnamespace-clean-perl/META.yml (original)
+++ trunk/libnamespace-clean-perl/META.yml Wed Jan 5 13:04:45 2011
@@ -12,7 +12,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.31
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.101612, CPAN::Meta::Converter version 2.101600'
+generated_by: 'Dist::Zilla version 4.200000, CPAN::Meta::Converter version 2.102400'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -20,7 +20,7 @@
name: namespace-clean
requires:
B::Hooks::EndOfScope: 0.07
- Package::Stash: 0.03
+ Package::Stash: 0.18
Sub::Identify: 0.04
Sub::Name: 0.04
vars: 0
@@ -28,81 +28,81 @@
bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=namespace-clean
homepage: http://search.cpan.org/dist/namespace-clean
repository: git://github.com/rafl/namespace-clean.git
-version: 0.18
+version: 0.19
x_Dist_Zilla:
plugins:
-
class: Dist::Zilla::Plugin::GatherDir
name: '@FLORA/@Basic/GatherDir'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::PruneCruft
name: '@FLORA/@Basic/PruneCruft'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::ManifestSkip
name: '@FLORA/@Basic/ManifestSkip'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::MetaYAML
name: '@FLORA/@Basic/MetaYAML'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::License
name: '@FLORA/@Basic/License'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::Readme
name: '@FLORA/@Basic/Readme'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::ExtraTests
name: '@FLORA/@Basic/ExtraTests'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::ExecDir
name: '@FLORA/@Basic/ExecDir'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::ShareDir
name: '@FLORA/@Basic/ShareDir'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::MakeMaker
name: '@FLORA/@Basic/MakeMaker'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::Manifest
name: '@FLORA/@Basic/Manifest'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::TestRelease
name: '@FLORA/@Basic/TestRelease'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::ConfirmRelease
name: '@FLORA/@Basic/ConfirmRelease'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::UploadToCPAN
name: '@FLORA/@Basic/UploadToCPAN'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::MetaConfig
name: '@FLORA/MetaConfig'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::MetaJSON
name: '@FLORA/MetaJSON'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::PkgVersion
name: '@FLORA/PkgVersion'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::PodSyntaxTests
name: '@FLORA/PodSyntaxTests'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::NoTabsTests
name: '@FLORA/NoTabsTests'
@@ -110,15 +110,15 @@
-
class: Dist::Zilla::Plugin::PodCoverageTests
name: '@FLORA/PodCoverageTests'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::MetaResources
name: '@FLORA/MetaResources'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::Authority
name: '@FLORA/Authority'
- version: 1.000
+ version: 1.002
-
class: Dist::Zilla::Plugin::EOLTests
name: '@FLORA/EOLTests'
@@ -126,30 +126,30 @@
-
class: Dist::Zilla::Plugin::PodWeaver
name: '@FLORA/PodWeaver'
- version: 3.101530
+ version: 3.101641
-
class: Dist::Zilla::Plugin::AutoPrereq
name: AutoPrereq
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::FinderCode
name: ':InstallModules'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::FinderCode
name: ':TestFiles'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ExecFiles'
- version: 4.101612
+ version: 4.200000
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ShareFiles'
- version: 4.101612
+ version: 4.200000
zilla:
- class: Dist::Zilla
+ class: Dist::Zilla::Dist::Builder
config:
is_trial: 0
- version: 4.101612
+ version: 4.200000
x_authority: cpan:PHAYLON
Modified: trunk/libnamespace-clean-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnamespace-clean-perl/Makefile.PL?rev=67044&op=diff
==============================================================================
--- trunk/libnamespace-clean-perl/Makefile.PL (original)
+++ trunk/libnamespace-clean-perl/Makefile.PL Wed Jan 5 13:04:45 2011
@@ -26,12 +26,12 @@
'NAME' => 'namespace::clean',
'PREREQ_PM' => {
'B::Hooks::EndOfScope' => '0.07',
- 'Package::Stash' => '0.03',
+ 'Package::Stash' => '0.18',
'Sub::Identify' => '0.04',
'Sub::Name' => '0.04',
'vars' => '0'
},
- 'VERSION' => '0.18',
+ 'VERSION' => '0.19',
'test' => {
'TESTS' => 't/*.t'
}
Modified: trunk/libnamespace-clean-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnamespace-clean-perl/README?rev=67044&op=diff
==============================================================================
--- trunk/libnamespace-clean-perl/README (original)
+++ trunk/libnamespace-clean-perl/README Wed Jan 5 13:04:45 2011
@@ -1,11 +1,11 @@
This archive contains the distribution namespace-clean,
-version 0.18:
+version 0.19:
Keep imports and functions out of your namespace
-This software is copyright (c) 2010 by Robert 'phaylon' Sedlacek.
+This software is copyright (c) 2011 by Robert 'phaylon' Sedlacek.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
Modified: trunk/libnamespace-clean-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnamespace-clean-perl/debian/changelog?rev=67044&op=diff
==============================================================================
--- trunk/libnamespace-clean-perl/debian/changelog (original)
+++ trunk/libnamespace-clean-perl/debian/changelog Wed Jan 5 13:04:45 2011
@@ -1,8 +1,13 @@
-libnamespace-clean-perl (0.18-2) UNRELEASED; urgency=low
+libnamespace-clean-perl (0.19-1) unstable; urgency=low
+ * New upstream release.
+ * Bump (build-)dep on libpackage-stash-perl to >= 0.18.
+ * debian/copyright: Update for new upstream release; refer to
+ /usr/share/common-licenses/GPL-1; refer to "Debian systems" instead of
+ "Debian GNU/Linux systems".
* Update my email address.
- -- Ansgar Burchardt <ansgar at debian.org> Mon, 01 Nov 2010 11:17:07 +0100
+ -- Ansgar Burchardt <ansgar at debian.org> Wed, 05 Jan 2011 14:04:23 +0100
libnamespace-clean-perl (0.18-1) unstable; urgency=low
Modified: trunk/libnamespace-clean-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnamespace-clean-perl/debian/control?rev=67044&op=diff
==============================================================================
--- trunk/libnamespace-clean-perl/debian/control (original)
+++ trunk/libnamespace-clean-perl/debian/control Wed Jan 5 13:04:45 2011
@@ -5,12 +5,12 @@
Build-Depends-Indep: perl, libb-hooks-endofscope-perl,
libsub-name-perl (>= 0.04), libsub-identify-perl (>= 0.04),
perl (>= 5.10.1) | libtest-simple-perl (>= 0.88),
- libpackage-stash-perl
+ libpackage-stash-perl (>= 0.18)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Damyan Ivanov <dmn at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
Rene Mayorga <rmayorga at debian.org.sv>, gregor herrmann <gregoa at debian.org>,
Antonio Radici <antonio at dyne.org>, Ansgar Burchardt <ansgar at debian.org>
-Standards-Version: 3.8.4
+Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/namespace-clean/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libnamespace-clean-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libnamespace-clean-perl/
@@ -19,7 +19,7 @@
Architecture: all
Depends: ${perl:Depends}, ${misc:Depends}, libb-hooks-endofscope-perl,
libsub-name-perl (>= 0.04), libsub-identify-perl (>= 0.04),
- libpackage-stash-perl
+ libpackage-stash-perl (>= 0.18)
Description: module for keeping imports and functions out of the current namespace
namespace::clean is a Perl pragma for keeping imported functions out of the
current namespace. This is especially important because Perl functions are
Modified: trunk/libnamespace-clean-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnamespace-clean-perl/debian/copyright?rev=67044&op=diff
==============================================================================
--- trunk/libnamespace-clean-perl/debian/copyright (original)
+++ trunk/libnamespace-clean-perl/debian/copyright Wed Jan 5 13:04:45 2011
@@ -4,11 +4,12 @@
Name: namespace-clean
Files: *
-Copyright: 2010, Robert Sedlacek <rs at 474.at>
+Copyright: 2011, Robert Sedlacek <rs at 474.at>
License: Artistic or GPL-1+
Files: debian/*
-Copyright: 2010, Jonathan Yu <jawnsy at cpan.org>
+Copyright:
+ 2010, Jonathan Yu <jawnsy at cpan.org>
2008-2010, gregor herrmann <gregoa at debian.org>
2009, Antonio Radici <antonio at dyne.org>
2008, Rene Mayorga <rmayorga at debian.org.sv>
@@ -20,8 +21,8 @@
This program is free software; you can redistribute it and/or modify
it under the terms of the Artistic License, which comes with Perl.
.
- On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'
+ On Debian systems, the complete text of the Artistic License can be
+ found in `/usr/share/common-licenses/Artistic'
License: GPL-1+
This program is free software; you can redistribute it and/or modify
@@ -29,6 +30,6 @@
the Free Software Foundation; either version 1, or (at your option)
any later version.
.
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'
+ On Debian systems, the complete text of version 1 of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL-1'.
Modified: trunk/libnamespace-clean-perl/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnamespace-clean-perl/dist.ini?rev=67044&op=diff
==============================================================================
--- trunk/libnamespace-clean-perl/dist.ini (original)
+++ trunk/libnamespace-clean-perl/dist.ini Wed Jan 5 13:04:45 2011
@@ -1,5 +1,5 @@
name = namespace-clean
-version = 0.18
+version = 0.19
author = Robert 'phaylon' Sedlacek <rs at 474.at>
author = Florian Ragwitz <rafl at debian.org>
author = Jesse Luehrs <doy at tozt.net>
Modified: trunk/libnamespace-clean-perl/lib/namespace/clean.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnamespace-clean-perl/lib/namespace/clean.pm?rev=67044&op=diff
==============================================================================
--- trunk/libnamespace-clean-perl/lib/namespace/clean.pm (original)
+++ trunk/libnamespace-clean-perl/lib/namespace/clean.pm Wed Jan 5 13:04:45 2011
@@ -3,7 +3,7 @@
$namespace::clean::AUTHORITY = 'cpan:PHAYLON';
}
BEGIN {
- $namespace::clean::VERSION = '0.18';
+ $namespace::clean::VERSION = '0.19';
}
# ABSTRACT: Keep imports and functions out of your namespace
@@ -13,7 +13,7 @@
use vars qw( $STORAGE_VAR );
use Sub::Name 0.04 qw(subname);
use Sub::Identify 0.04 qw(sub_fullname);
-use Package::Stash 0.03;
+use Package::Stash 0.18;
use B::Hooks::EndOfScope 0.07;
$STORAGE_VAR = '__NAMESPACE_CLEAN_STORAGE';
@@ -31,7 +31,7 @@
# ignore already removed symbols
next SYMBOL if $store->{exclude}{ $f };
- next SYMBOL unless $cleanee_stash->has_package_symbol($variable);
+ next SYMBOL unless $cleanee_stash->has_symbol($variable);
if (ref(\$cleanee_stash->namespace->{$f}) eq 'GLOB') {
# convince the Perl debugger to work
@@ -39,15 +39,22 @@
# since we are deleting the glob where the subroutine was originally
# defined, that assumption no longer holds, so we need to move it
# elsewhere and point the CV's name to the new glob.
- my $sub = $cleanee_stash->get_package_symbol($variable);
+ my $sub = $cleanee_stash->get_symbol($variable);
if ( sub_fullname($sub) eq ($cleanee_stash->name . "::$f") ) {
my $new_fq = $deleted_stash->name . "::$f";
subname($new_fq, $sub);
- $deleted_stash->add_package_symbol($variable, $sub);
+ $deleted_stash->add_symbol($variable, $sub);
}
}
- $cleanee_stash->remove_package_symbol($variable);
+ my ($scalar, $array, $hash, $io) = map {
+ $cleanee_stash->get_symbol($_ . $f)
+ } '$', '@', '%', '';
+ $cleanee_stash->remove_glob($f);
+ for my $var (['$', $scalar], ['@', $array], ['%', $hash], ['', $io]) {
+ next unless defined $var->[1];
+ $cleanee_stash->add_symbol($var->[0] . $f, $var->[1]);
+ }
}
};
@@ -99,7 +106,7 @@
# register symbols for removal, if they have a CODE entry
for my $f (keys %$functions) {
next if $except{ $f };
- next unless $stash->has_package_symbol("&$f");
+ next unless $stash->has_symbol("&$f");
$store->{remove}{ $f } = 1;
}
@@ -139,9 +146,9 @@
my ($pragma, $class) = @_;
my $stash = Package::Stash->new($class);
my $var = "%$STORAGE_VAR";
- $stash->add_package_symbol($var, {})
- unless $stash->has_package_symbol($var);
- return $stash->get_package_symbol($var);
+ $stash->add_symbol($var, {})
+ unless $stash->has_symbol($var);
+ return $stash->get_symbol($var);
}
@@ -150,8 +157,8 @@
my $stash = Package::Stash->new($class);
return {
- map { $_ => $stash->get_package_symbol("&$_") }
- $stash->list_all_package_symbols('CODE')
+ map { $_ => $stash->get_symbol("&$_") }
+ $stash->list_all_symbols('CODE')
};
}
@@ -363,7 +370,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2010 by Robert 'phaylon' Sedlacek.
+This software is copyright (c) 2011 by Robert 'phaylon' Sedlacek.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
More information about the Pkg-perl-cvs-commits
mailing list