diff --git a/var/tmp/source/TBONE/Array-Group-3.0/Array-Group-3.0/Changes b/var/tmp/source/TBONE/Array-Group-4.1/Array-Group-4.1/Changes
old mode 100644
new mode 100755
@@ -3,5 +3,6 @@ lib/Array/Group.pm
Makefile.PL
MANIFEST
README
-test.pl
+t/test.t
META.yml Module meta-data (added by MakeMaker)
+META.json Module JSON meta-data (added by MakeMaker)
@@ -0,0 +1,42 @@
+{
+ "abstract" : "unknown",
+ "author" : [
+ "unknown"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "Array-Group",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "Test::More" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "perl" : "5.006"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {},
+ "version" : "4.1"
+}
@@ -1,20 +1,23 @@
---- #YAML:1.0
-name: Array-Group
-version: 3.0
-abstract: ~
-author: []
-license: unknown
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-build_requires:
- ExtUtils::MakeMaker: 0
-requires: {}
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.56
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+---
+abstract: unknown
+author:
+ - unknown
+build_requires:
+ Test::More: 0
+configure_requires:
+ ExtUtils::MakeMaker: 0
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: Array-Group
+no_index:
+ directory:
+ - t
+ - inc
+requires:
+ perl: 5.006
+resources: {}
+version: 4.1
@@ -1,7 +1,47 @@
-use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
- 'NAME' => 'Array::Group',
- 'VERSION_FROM' => 'lib/Array/Group.pm', # finds $VERSION
-);
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile1(
+ LICENSE => 'perl',
+ MIN_PERL_VERSION => '5.006',
+ META_MERGE => {
+ resources => {
+ #repository => 'URL to repository here',
+ },
+ },
+ TEST_REQUIRES => {
+ 'Test::More'=> 0,
+ },
+
+ 'NAME' => 'Array::Group',
+ 'VERSION_FROM' => 'lib/Array/Group.pm', # finds $VERSION
+);
+
+sub WriteMakefile1 { #Compatibility code for old versions of EU::MM. Written by Alexandr Ciornii, version 0.23. Added by eumm-upgrade.
+ my %params=@_;
+ my $eumm_version=$ExtUtils::MakeMaker::VERSION;
+ $eumm_version=eval $eumm_version;
+ die "EXTRA_META is deprecated" if exists $params{EXTRA_META};
+ die "License not specified" if not exists $params{LICENSE};
+ if ($params{AUTHOR} and ref($params{AUTHOR}) eq 'ARRAY' and $eumm_version < 6.5705) {
+ $params{META_ADD}->{author}=$params{AUTHOR};
+ $params{AUTHOR}=join(', ',@{$params{AUTHOR}});
+ }
+ if ($params{TEST_REQUIRES} and $eumm_version < 6.64) {
+ $params{BUILD_REQUIRES}={ %{$params{BUILD_REQUIRES} || {}} , %{$params{TEST_REQUIRES}} };
+ delete $params{TEST_REQUIRES};
+ }
+ if ($params{BUILD_REQUIRES} and $eumm_version < 6.5503) {
+ #EUMM 6.5502 has problems with BUILD_REQUIRES
+ $params{PREREQ_PM}={ %{$params{PREREQ_PM} || {}} , %{$params{BUILD_REQUIRES}} };
+ delete $params{BUILD_REQUIRES};
+ }
+ delete $params{CONFIGURE_REQUIRES} if $eumm_version < 6.52;
+ delete $params{MIN_PERL_VERSION} if $eumm_version < 6.48;
+ delete $params{META_MERGE} if $eumm_version < 6.46;
+ delete $params{META_ADD} if $eumm_version < 6.46;
+ delete $params{LICENSE} if $eumm_version < 6.31;
+
+ WriteMakefile(%params);
+}
+
diff --git a/var/tmp/source/TBONE/Array-Group-3.0/Array-Group-3.0/README b/var/tmp/source/TBONE/Array-Group-4.1/Array-Group-4.1/README
old mode 100644
new mode 100755
@@ -1,13 +1,14 @@
package Array::Group;
+use 5.006;
+
use strict;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
use Carp;
require Exporter;
-our @ISA = qw(Exporter DynaLoader);
+our @ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
@@ -25,7 +26,7 @@ our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw();
-our $VERSION = '3.0';
+our $VERSION = '4.1';
# Preloaded methods go here.
sub ngroup {
@@ -144,38 +145,31 @@ reformed can be passed as a reference.
-=head1 AUTHOR
-The ongoing saga between princepawn, davorg and kilinrax over who did
-when in terms of getting this out is rather long-winded.
-They have their side of the story and I have mine. As is usual, it is
-princepawn versus some other majority. But what more could you expect from
-the black sheep of the Perl community?
+=head1 SEE ALSO
+
+=over 4
-One thing is for certain
-there is a bug in L<Array::Reform|Array::Reform>
-and two months have passed and the
-author has done nothing about my RT bug patch submitted 1/21/06:
-L<http://rt.cpan.org/Public/Bug/Display.html?id=17201>
+=item * L<Array::Reform>
-Not to mention that I held the Array::Reform namespace and when I turned it
-overto him, he did not even acknowledge this.
+=back
-The test suite for L<HTML::Element::Library|HTML::Element::Library>
-depends on this
-functionality and since I have people complaining about the wacky errors
-coming out of kilinrax's version of this module, and since he does not
-respond to emails, it is clear it is time to drop any reliance on his module.
+=head1 AUTHOR
-So, I wont say who the author is of what... this is free software anyway.
+Terrence Monroe Brannon <tbone@CPAN.org>
+=head2 CONTRIBUTORS
-=head1 SEE ALSO
+I would like to thank Alexandr Ciornii for his help in upgrading this
+distribution's format. He took me from using a F<test.pl> file to using
+the F<t/> directory and removed some old crufty things that were not needed.
+He also upgraded the Makefile.PL.
-=over 4
+=head1 COPYRIGHT
-=item * L<Array::Reform>
+Copyright 1999-present by Terrence Brannon.
-=back
+This library is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
=cut
@@ -0,0 +1,53 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl test.pl'
+
+#########################
+
+# change 'tests => 1' to 'tests => last_test_to_print';
+
+use Test::More tests => 9;
+#BEGIN { plan };
+use Array::Group qw( :all );
+ok(1); # If we made it this far, we're ok.
+
+diag("Array::Group::VERSION $Array::Group::VERSION");
+
+#########################
+
+# Insert your test code below, the Test module is use()ed here so read
+# its man page ( perldoc Test ) for help writing this test script.
+
+our (@orig, $size, @new, $new);
+
+@orig = ( 1 .. 16 );
+$size = 8;
+@new = ngroup( $size, \@orig );
+ok( scalar @new == 2 );
+
+# check class methods work
+@new = Array::Group->ngroup( $size, \@orig );
+ok( scalar @new == 2 );
+
+# check calling with an array rather than an arrayref works
+#@new = ngroup( $size, @orig );
+#ok( scalar @new == 2 );
+
+$size = 4;
+$new = ngroup( $size, \@orig );
+ok( scalar @$new == 4 );
+
+$size = 5;
+@new = dissect( $size, \@orig );
+ok( scalar @new == 5 );
+
+@orig = ( 1 .. 5 );
+$size = 2;
+@new = ngroup( $size, \@orig );
+ok( $new[0][1] == 2 && $new[2][0] == 5 );
+
+@new = dissect( $size, \@orig );
+ok( $new[1][0] == 2 && $new[0][1] == 3 );
+
+$size = 3;
+@new = dissect( $size, \@orig );
+is( $new[0][1], 4 ); is( $new[2][0], 3 );
@@ -1,53 +0,0 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl test.pl'
-
-#########################
-
-# change 'tests => 1' to 'tests => last_test_to_print';
-
-use Test;
-BEGIN { plan tests => 8 };
-use Array::Group qw( :all );
-ok(1); # If we made it this far, we're ok.
-
-warn "Array::Group::VERSION - $Array::Group::VERSION";
-
-#########################
-
-# Insert your test code below, the Test module is use()ed here so read
-# its man page ( perldoc Test ) for help writing this test script.
-
-use vars qw( @orig $size @new $new );
-
-@orig = ( 1 .. 16 );
-$size = 8;
-@new = ngroup( $size, \@orig );
-ok( scalar @new == 2 );
-
-# check class methods work
-@new = Array::Group->ngroup( $size, \@orig );
-ok( scalar @new == 2 );
-
-# check calling with an array rather than an arrayref works
-#@new = ngroup( $size, @orig );
-#ok( scalar @new == 2 );
-
-$size = 4;
-$new = ngroup( $size, \@orig );
-ok( scalar @$new == 4 );
-
-$size = 5;
-@new = dissect( $size, \@orig );
-ok( scalar @new == 5 );
-
-@orig = ( 1 .. 5 );
-$size = 2;
-@new = ngroup( $size, \@orig );
-ok( $new[0][1] == 2 && $new[2][0] == 5 );
-
-@new = dissect( $size, \@orig );
-ok( $new[1][0] == 2 && $new[0][1] == 3 );
-
-$size = 3;
-@new = dissect( $size, \@orig );
-ok( $new[0][1] == 4 && $new[2][0] == 3 );