r12641 - in /trunk/libclass-accessor-grouped-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/Class/Accessor/ t/
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sun Jan 13 18:32:49 UTC 2008
Author: gregoa-guest
Date: Sun Jan 13 18:32:49 2008
New Revision: 12641
URL: http://svn.debian.org/wsvn/?sc=1&rev=12641
Log:
New upstream release.
Modified:
trunk/libclass-accessor-grouped-perl/Changes
trunk/libclass-accessor-grouped-perl/MANIFEST.SKIP
trunk/libclass-accessor-grouped-perl/META.yml
trunk/libclass-accessor-grouped-perl/Makefile.PL
trunk/libclass-accessor-grouped-perl/README
trunk/libclass-accessor-grouped-perl/debian/changelog
trunk/libclass-accessor-grouped-perl/inc/Module/Install.pm
trunk/libclass-accessor-grouped-perl/inc/Module/Install/AutoInstall.pm
trunk/libclass-accessor-grouped-perl/inc/Module/Install/Base.pm
trunk/libclass-accessor-grouped-perl/inc/Module/Install/Include.pm
trunk/libclass-accessor-grouped-perl/inc/Module/Install/MakeMaker.pm
trunk/libclass-accessor-grouped-perl/inc/Module/Install/Makefile.pm
trunk/libclass-accessor-grouped-perl/inc/Module/Install/Metadata.pm
trunk/libclass-accessor-grouped-perl/lib/Class/Accessor/Grouped.pm
trunk/libclass-accessor-grouped-perl/t/basic.t
trunk/libclass-accessor-grouped-perl/t/manifest.t
trunk/libclass-accessor-grouped-perl/t/pod_coverage.t
trunk/libclass-accessor-grouped-perl/t/pod_spelling.t
trunk/libclass-accessor-grouped-perl/t/pod_syntax.t
trunk/libclass-accessor-grouped-perl/t/strict.t
trunk/libclass-accessor-grouped-perl/t/style_no_tabs.t
trunk/libclass-accessor-grouped-perl/t/warnings.t
Modified: trunk/libclass-accessor-grouped-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/Changes?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/Changes (original)
+++ trunk/libclass-accessor-grouped-perl/Changes Sun Jan 13 18:32:49 2008
@@ -1,4 +1,14 @@
Revision history for Class::Accessor::Grouped.
+
+0.08001 Wed Jan 09 19:35:34 2008
+ - Fixed Makefile.PL tests setting that was killing older installs
+
+0.08000 Tue Jan 08 18:22:47 2008
+ - Bumped version for release. No changes oherwise.
+
+0.07009_01 Fri Dec 28 18:08::00 2007
+ - Tweak code for pure speed while fixing performance issue when assigning @_
+ under Perl 5.10.0
0.07000
- Altered get_inherited to return undef rather than () when no value
Modified: trunk/libclass-accessor-grouped-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/MANIFEST.SKIP?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/MANIFEST.SKIP (original)
+++ trunk/libclass-accessor-grouped-perl/MANIFEST.SKIP Sun Jan 13 18:32:49 2008
@@ -8,6 +8,7 @@
aegis.log$
\bconfig$
\bbuild$
+\.DS_Store$
# Avoid Makemaker generated and utility files.
\bMakefile$
Modified: trunk/libclass-accessor-grouped-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/META.yml?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/META.yml (original)
+++ trunk/libclass-accessor-grouped-perl/META.yml Sun Jan 13 18:32:49 2008
@@ -1,8 +1,9 @@
---
abstract: Lets you build groups of accessors
-author: Matt S. Trout <mst at shadowcatsystems.co.uk>
+author:
+ - Matt S. Trout <mst at shadowcatsystems.co.uk>
distribution_type: module
-generated_by: Module::Install version 0.67
+generated_by: Module::Install version 0.68
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.3.html
@@ -18,5 +19,4 @@
MRO::Compat: 0
Scalar::Util: 0
perl: 5.6.1
-tests: t/*.t t/*/*.t
-version: 0.07000
+version: 0.08001
Modified: trunk/libclass-accessor-grouped-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/Makefile.PL?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/Makefile.PL (original)
+++ trunk/libclass-accessor-grouped-perl/Makefile.PL Sun Jan 13 18:32:49 2008
@@ -1,4 +1,4 @@
-# $Id: /local/Class-Accessor-Grouped/Makefile.PL 1700 2007-07-02T01:08:11.474048Z claco $
+# $Id: /local/CPAN/Class-Accessor-Grouped/Makefile.PL 1165 2008-01-10T00:37:13.965078Z claco $
use strict;
use warnings;
use inc::Module::Install 0.65;
@@ -13,7 +13,6 @@
requires 'MRO::Compat';
requires 'Class::Inspector';
-tests "t/*.t t/*/*.t";
clean_files "Class-Accessor-Grouped-* t/var";
auto_install;
Modified: trunk/libclass-accessor-grouped-perl/README
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/README?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/README (original)
+++ trunk/libclass-accessor-grouped-perl/README Sun Jan 13 18:32:49 2008
@@ -16,6 +16,10 @@
$group is the name of the accessor group for the generated accessors;
they will call get_$group($field) on get and set_$group($field, $value)
on set.
+
+ If you want to mimic Class::Accessor's mk_accessors $group has to be
+ 'simple' to tell Class::Accessor::Grouped to use its own get_simple and
+ set_simple methods.
@fieldspec is a list of field/accessor names; if a fieldspec is a scalar
this is used as both field and accessor name, if a listref it is
Modified: trunk/libclass-accessor-grouped-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/debian/changelog?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/debian/changelog (original)
+++ trunk/libclass-accessor-grouped-perl/debian/changelog Sun Jan 13 18:32:49 2008
@@ -1,11 +1,12 @@
-libclass-accessor-grouped-perl (0.07000-2) UNRELEASED; urgency=low
+libclass-accessor-grouped-perl (0.08001-1) UNRELEASED; urgency=low
+ * New upstream release.
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
field (source stanza); Homepage field (source stanza). Removed: XS-
Vcs-Svn fields.
* debian/rules: delete /usr/lib/perl5 only if it exists.
- -- gregor herrmann <gregor+debian at comodo.priv.at> Tue, 09 Oct 2007 22:27:57 +0200
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Sun, 13 Jan 2008 19:31:15 +0100
libclass-accessor-grouped-perl (0.07000-1) unstable; urgency=low
Modified: trunk/libclass-accessor-grouped-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/inc/Module/Install.pm?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/inc/Module/Install.pm (original)
+++ trunk/libclass-accessor-grouped-perl/inc/Module/Install.pm Sun Jan 13 18:32:49 2008
@@ -28,7 +28,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.67';
+ $VERSION = '0.68';
}
# Whether or not inc::Module::Install is actually loaded, the
Modified: trunk/libclass-accessor-grouped-perl/inc/Module/Install/AutoInstall.pm
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/inc/Module/Install/AutoInstall.pm?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/inc/Module/Install/AutoInstall.pm (original)
+++ trunk/libclass-accessor-grouped-perl/inc/Module/Install/AutoInstall.pm Sun Jan 13 18:32:49 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libclass-accessor-grouped-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/inc/Module/Install/Base.pm?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libclass-accessor-grouped-perl/inc/Module/Install/Base.pm Sun Jan 13 18:32:49 2008
@@ -1,7 +1,7 @@
#line 1
package Module::Install::Base;
-$VERSION = '0.67';
+$VERSION = '0.68';
# Suspend handler for "redefined" warnings
BEGIN {
Modified: trunk/libclass-accessor-grouped-perl/inc/Module/Install/Include.pm
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/inc/Module/Install/Include.pm?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/inc/Module/Install/Include.pm (original)
+++ trunk/libclass-accessor-grouped-perl/inc/Module/Install/Include.pm Sun Jan 13 18:32:49 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libclass-accessor-grouped-perl/inc/Module/Install/MakeMaker.pm
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/inc/Module/Install/MakeMaker.pm?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/inc/Module/Install/MakeMaker.pm (original)
+++ trunk/libclass-accessor-grouped-perl/inc/Module/Install/MakeMaker.pm Sun Jan 13 18:32:49 2008
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libclass-accessor-grouped-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/inc/Module/Install/Makefile.pm?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libclass-accessor-grouped-perl/inc/Module/Install/Makefile.pm Sun Jan 13 18:32:49 2008
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libclass-accessor-grouped-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/inc/Module/Install/Metadata.pm?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libclass-accessor-grouped-perl/inc/Module/Install/Metadata.pm Sun Jan 13 18:32:49 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libclass-accessor-grouped-perl/lib/Class/Accessor/Grouped.pm
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/lib/Class/Accessor/Grouped.pm?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/lib/Class/Accessor/Grouped.pm (original)
+++ trunk/libclass-accessor-grouped-perl/lib/Class/Accessor/Grouped.pm Sun Jan 13 18:32:49 2008
@@ -1,14 +1,12 @@
package Class::Accessor::Grouped;
use strict;
use warnings;
-use Carp;
+use Carp ();
use Class::Inspector ();
-use Scalar::Util qw/reftype blessed/;
+use Scalar::Util ();
use MRO::Compat;
-use vars qw($VERSION);
-
-$VERSION = '0.07000';
+our $VERSION = '0.08001';
=head1 NAME
@@ -37,6 +35,10 @@
$group is the name of the accessor group for the generated accessors; they
will call get_$group($field) on get and set_$group($field, $value) on set.
+
+If you want to mimic Class::Accessor's mk_accessors $group has to be 'simple'
+to tell Class::Accessor::Grouped to use its own get_simple and set_simple
+methods.
@fieldspec is a list of field/accessor names; if a fieldspec is a scalar
this is used as both field and accessor name, if a listref it is expected to
@@ -58,14 +60,14 @@
sub _mk_group_accessors {
my($self, $maker, $group, @fields) = @_;
- my $class = blessed $self || $self;
+ my $class = Scalar::Util::blessed $self || $self;
# So we don't have to do lots of lookups inside the loop.
$maker = $self->can($maker) unless ref $maker;
foreach my $field (@fields) {
if( $field eq 'DESTROY' ) {
- carp("Having a data accessor named DESTROY in ".
+ Carp::carp("Having a data accessor named DESTROY in ".
"'$class' is unwise.");
}
@@ -150,17 +152,15 @@
my $set = "set_$group";
my $get = "get_$group";
- # Build a closure around $field.
- return sub {
- my $self = shift;
-
- if(@_) {
- return $self->$set($field, @_);
+ # eval for faster fastiness
+ return eval "sub {
+ if(\@_ > 1) {
+ return shift->$set('$field', \@_);
}
else {
- return $self->$get($field);
- }
- };
+ return shift->$get('$field');
+ }
+ };"
}
=head2 make_group_ro_accessor
@@ -183,18 +183,16 @@
my $get = "get_$group";
- return sub {
- my $self = shift;
-
- if(@_) {
- my $caller = caller;
- croak("'$caller' cannot alter the value of '$field' on ".
- "objects of class '$class'");
+ return eval "sub {
+ if(\@_ > 1) {
+ my \$caller = caller;
+ Carp::croak(\"'\$caller' cannot alter the value of '$field' on \".
+ \"objects of class '$class'\");
}
else {
- return $self->$get($field);
- }
- };
+ return shift->$get('$field');
+ }
+ };"
}
=head2 make_group_wo_accessor
@@ -217,18 +215,16 @@
my $set = "set_$group";
- return sub {
- my $self = shift;
-
- unless (@_) {
- my $caller = caller;
- croak("'$caller' cannot access the value of '$field' on ".
- "objects of class '$class'");
+ return eval "sub {
+ unless (\@_ > 1) {
+ my \$caller = caller;
+ Carp::croak(\"'\$caller' cannot access the value of '$field' on \".
+ \"objects of class '$class'\");
}
else {
- return $self->$set($field, @_);
- }
- };
+ return shift->$set('$field', \@_);
+ }
+ };"
}
=head2 get_simple
@@ -247,8 +243,9 @@
=cut
sub get_simple {
- my ($self, $get) = @_;
+ my ($self, $get) = @_;
return $self->{$get};
+ return $_[0]->{$_[1]};
}
=head2 set_simple
@@ -267,8 +264,7 @@
=cut
sub set_simple {
- my ($self, $set, $val) = @_;
- return $self->{$set} = $val;
+ return $_[0]->{$_[1]} = $_[2];
}
@@ -291,31 +287,30 @@
=cut
sub get_inherited {
- my ($self, $get) = @_;
my $class;
- if (blessed $self) {
- my $reftype = reftype $self;
- $class = ref $self;
-
- if ($reftype eq 'HASH' && exists $self->{$get}) {
- return $self->{$get};
+ if (Scalar::Util::blessed $_[0]) {
+ my $reftype = Scalar::Util::reftype $_[0];
+ $class = ref $_[0];
+
+ if ($reftype eq 'HASH' && exists $_[0]->{$_[1]}) {
+ return $_[0]->{$_[1]};
} elsif ($reftype ne 'HASH') {
- croak('Cannot get inherited value on an object instance that is not hash-based');
+ Carp::croak('Cannot get inherited value on an object instance that is not hash-based');
};
} else {
- $class = $self;
+ $class = $_[0];
};
no strict 'refs';
- return ${$class.'::__cag_'.$get} if defined(${$class.'::__cag_'.$get});
+ return ${$class.'::__cag_'.$_[1]} if defined(${$class.'::__cag_'.$_[1]});
if (!@{$class.'::__cag_supers'}) {
- @{$class.'::__cag_supers'} = $self->get_super_paths;
+ @{$class.'::__cag_supers'} = $_[0]->get_super_paths;
};
foreach (@{$class.'::__cag_supers'}) {
- return ${$_.'::__cag_'.$get} if defined(${$_.'::__cag_'.$get});
+ return ${$_.'::__cag_'.$_[1]} if defined(${$_.'::__cag_'.$_[1]});
};
return undef;
@@ -342,18 +337,16 @@
=cut
sub set_inherited {
- my ($self, $set, $val) = @_;
-
- if (blessed $self) {
- if (reftype $self eq 'HASH') {
- return $self->{$set} = $val;
+ if (Scalar::Util::blessed $_[0]) {
+ if (Scalar::Util::reftype $_[0] eq 'HASH') {
+ return $_[0]->{$_[1]} = $_[2];
} else {
- croak('Cannot set inherited value on an object instance that is not hash-based');
+ Carp::croak('Cannot set inherited value on an object instance that is not hash-based');
};
} else {
no strict 'refs';
- return ${$self.'::__cag_'.$set} = $val;
+ return ${$_[0].'::__cag_'.$_[1]} = $_[2];
};
}
@@ -379,9 +372,7 @@
=cut
sub get_component_class {
- my ($self, $field) = @_;
-
- return $self->get_inherited($field);
+ return $_[0]->get_inherited($_[1]);
};
=head2 set_component_class
@@ -405,18 +396,16 @@
=cut
sub set_component_class {
- my ($self, $field, $value) = @_;
-
- if ($value) {
+ if ($_[2]) {
local $^W = 0;
- if (Class::Inspector->installed($value) && !Class::Inspector->loaded($value)) {
- eval "use $value";
-
- croak("Could not load $field '$value': ", $@) if $@;
+ if (Class::Inspector->installed($_[2]) && !Class::Inspector->loaded($_[2])) {
+ eval "use $_[2]";
+
+ Carp::croak("Could not load $_[1] '$_[2]': ", $@) if $@;
};
};
- return $self->set_inherited($field, $value);
+ return $_[0]->set_inherited($_[1], $_[2]);
};
=head2 get_super_paths
@@ -426,7 +415,7 @@
=cut
sub get_super_paths {
- my $class = blessed $_[0] || $_[0];
+ my $class = Scalar::Util::blessed $_[0] || $_[0];
return @{mro::get_linear_isa($class)};
};
Modified: trunk/libclass-accessor-grouped-perl/t/basic.t
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/t/basic.t?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/t/basic.t (original)
+++ trunk/libclass-accessor-grouped-perl/t/basic.t Sun Jan 13 18:32:49 2008
@@ -1,5 +1,5 @@
#!perl -wT
-# $Id: /local/Class-Accessor-Grouped/t/basic.t 1693 2007-05-06T02:24:39.381139Z claco $
+# $Id: /local/CPAN/Class-Accessor-Grouped/t/basic.t 20 2007-05-06T02:24:39.381139Z claco $
use strict;
use warnings;
Modified: trunk/libclass-accessor-grouped-perl/t/manifest.t
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/t/manifest.t?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/t/manifest.t (original)
+++ trunk/libclass-accessor-grouped-perl/t/manifest.t Sun Jan 13 18:32:49 2008
@@ -1,5 +1,5 @@
#!perl -wT
-# $Id: /local/Class-Accessor-Grouped/t/manifest.t 1693 2007-05-06T02:24:39.381139Z claco $
+# $Id: /local/CPAN/Class-Accessor-Grouped/t/manifest.t 1064 2007-12-28T23:18:25.520728Z claco $
use strict;
use warnings;
@@ -17,6 +17,6 @@
ok_manifest({
exclude => ['/t/var', '/cover_db'],
- filter => [qr/\.svn/, qr/cover/, qr/Build(.(PL|bat))?/, qr/_build/],
+ filter => [qr/\.svn/, qr/cover/, qr/Build(.(PL|bat))?/, qr/_build/, qr/\.DS_Store/],
bool => 'or'
});
Modified: trunk/libclass-accessor-grouped-perl/t/pod_coverage.t
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/t/pod_coverage.t?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/t/pod_coverage.t (original)
+++ trunk/libclass-accessor-grouped-perl/t/pod_coverage.t Sun Jan 13 18:32:49 2008
@@ -1,5 +1,5 @@
#!perl -wT
-# $Id: /local/Class-Accessor-Grouped/t/pod_coverage.t 1693 2007-05-06T02:24:39.381139Z claco $
+# $Id: /local/CPAN/Class-Accessor-Grouped/t/pod_coverage.t 20 2007-05-06T02:24:39.381139Z claco $
use strict;
use warnings;
Modified: trunk/libclass-accessor-grouped-perl/t/pod_spelling.t
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/t/pod_spelling.t?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/t/pod_spelling.t (original)
+++ trunk/libclass-accessor-grouped-perl/t/pod_spelling.t Sun Jan 13 18:32:49 2008
@@ -1,5 +1,5 @@
#!perl -w
-# $Id: /local/Class-Accessor-Grouped/t/pod_spelling.t 1700 2007-07-02T01:08:11.474048Z claco $
+# $Id: /local/CPAN/Class-Accessor-Grouped/t/pod_spelling.t 26 2007-07-02T01:46:31.239709Z claco $
use strict;
use warnings;
Modified: trunk/libclass-accessor-grouped-perl/t/pod_syntax.t
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/t/pod_syntax.t?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/t/pod_syntax.t (original)
+++ trunk/libclass-accessor-grouped-perl/t/pod_syntax.t Sun Jan 13 18:32:49 2008
@@ -1,5 +1,5 @@
#!perl -wT
-# $Id: /local/Class-Accessor-Grouped/t/pod_syntax.t 1693 2007-05-06T02:24:39.381139Z claco $
+# $Id: /local/CPAN/Class-Accessor-Grouped/t/pod_syntax.t 20 2007-05-06T02:24:39.381139Z claco $
use strict;
use warnings;
Modified: trunk/libclass-accessor-grouped-perl/t/strict.t
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/t/strict.t?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/t/strict.t (original)
+++ trunk/libclass-accessor-grouped-perl/t/strict.t Sun Jan 13 18:32:49 2008
@@ -1,5 +1,5 @@
#!perl -wT
-# $Id: /local/Class-Accessor-Grouped/t/strict.t 1696 2007-05-11T01:34:21.515012Z claco $
+# $Id: /local/CPAN/Class-Accessor-Grouped/t/strict.t 23 2007-05-11T01:34:21.515012Z claco $
use strict;
use warnings;
Modified: trunk/libclass-accessor-grouped-perl/t/style_no_tabs.t
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/t/style_no_tabs.t?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/t/style_no_tabs.t (original)
+++ trunk/libclass-accessor-grouped-perl/t/style_no_tabs.t Sun Jan 13 18:32:49 2008
@@ -1,5 +1,5 @@
#!perl -wT
-# $Id: /local/Class-Accessor-Grouped/t/style_no_tabs.t 1693 2007-05-06T02:24:39.381139Z claco $
+# $Id: /local/CPAN/Class-Accessor-Grouped/t/style_no_tabs.t 20 2007-05-06T02:24:39.381139Z claco $
use strict;
use warnings;
Modified: trunk/libclass-accessor-grouped-perl/t/warnings.t
URL: http://svn.debian.org/wsvn/trunk/libclass-accessor-grouped-perl/t/warnings.t?rev=12641&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/t/warnings.t (original)
+++ trunk/libclass-accessor-grouped-perl/t/warnings.t Sun Jan 13 18:32:49 2008
@@ -1,5 +1,5 @@
#!perl -wT
-# $Id: /local/Class-Accessor-Grouped/t/warnings.t 1696 2007-05-11T01:34:21.515012Z claco $
+# $Id: /local/CPAN/Class-Accessor-Grouped/t/warnings.t 23 2007-05-11T01:34:21.515012Z claco $
use strict;
use warnings;
More information about the Pkg-perl-cvs-commits
mailing list