Permalink
Browse files

Change packages like DateTime::y2038 to perl5i::X::DateTime::y2038

This was already done for perl5i::2.   Now its done retroactively for
perl5i::0 and 1.

This puts everything under the perl5i package in every
release.  It makes assigning PAUSE permissions much easier.
  • Loading branch information...
schwern committed Mar 18, 2013
1 parent 395a002 commit 4bb722c924d957738d7988161ddc5bf9f1ba826c
Showing with 26 additions and 20 deletions.
  1. +6 −0 Changes
  2. +1 −1 lib/perl5i/0.pm
  3. +9 −9 lib/perl5i/0/DateTime.pm
  4. +1 −1 lib/perl5i/1.pm
  5. +9 −9 lib/perl5i/1/DateTime.pm
View
@@ -1,3 +1,9 @@
+2.11.2
+ Distribution Fixes
+ * perl5i::0 and perl5i::1 had internal packages outside the perl5i
+ package which caused CPAN permissions problems. This has been
+ fixed.
+
2.11.1 Mon Mar 18 02:24:20 UTC 2013
Distribution Fixes
* Creating a new release with correct PAUSE permissions
View
@@ -21,7 +21,7 @@ use Encode ();
use perl5i::VERSION; our $VERSION = perl5i::VERSION->VERSION;
-our $Latest = perl5i::VERSION->latest;
+our $Latest = 'perl5i::0';
# This works around their lexical nature.
View
@@ -18,14 +18,14 @@ sub dt_gmtime (;$) {
$year += 1900;
require DateTime;
- return DateTime::y2038->new(
+ return perl5i::0::DateTime::y2038->new(
year => $year,
month => $mon,
day => $mday,
hour => $hour,
minute => $min,
second => $sec,
- formatter => "DateTime::Format::CTime"
+ formatter => "perl5i::0::DateTime::Format::CTime"
);
}
@@ -40,15 +40,15 @@ sub dt_localtime (;$) {
$year += 1900;
require DateTime;
- return DateTime::y2038->new(
+ return perl5i::0::DateTime::y2038->new(
year => $year,
month => $mon,
day => $mday,
hour => $hour,
minute => $min,
second => $sec,
time_zone => "local",
- formatter => "DateTime::Format::CTime"
+ formatter => "perl5i::0::DateTime::Format::CTime"
);
}
@@ -59,15 +59,15 @@ sub dt_time () {
state $formatter = DateTime::Format::Epoch->new( epoch => DateTime->from_epoch( epoch => 0 ) );
require DateTime;
- return DateTime::time->from_epoch(
+ return perl5i::0::DateTime::time->from_epoch(
epoch => time,
formatter => $formatter
);
}
{
- package DateTime::y2038;
+ package perl5i::0::DateTime::y2038;
# Don't load DateTime until we need it.
our @ISA = qw(DateTime);
@@ -113,9 +113,9 @@ sub dt_time () {
{
- package DateTime::time;
+ package perl5i::0::DateTime::time;
- use parent -norequire, qw(DateTime::y2038);
+ use parent -norequire, qw(perl5i::0::DateTime::y2038);
use overload
"0+" => sub { $_[0]->epoch },
@@ -157,7 +157,7 @@ sub dt_time () {
{
- package DateTime::Format::CTime;
+ package perl5i::0::DateTime::Format::CTime;
use CLASS;
View
@@ -17,7 +17,7 @@ use perl5i::1::autobox;
use perl5i::VERSION; our $VERSION = perl5i::VERSION->VERSION;
-our $Latest = perl5i::VERSION->latest;
+our $Latest = 'perl5i::1';
# This works around their lexical nature.
View
@@ -31,14 +31,14 @@ sub dt_gmtime (;$) {
$year += 1900;
require DateTime;
- return DateTime::y2038->new(
+ return perl5i::1::DateTime::y2038->new(
year => $year,
month => $mon,
day => $mday,
hour => $hour,
minute => $min,
second => $sec,
- formatter => "DateTime::Format::CTime"
+ formatter => "perl5i::1::DateTime::Format::CTime"
);
}
@@ -83,15 +83,15 @@ sub dt_localtime (;$) {
state $tz = _get_datetime_timezone();
require DateTime;
- return DateTime::y2038->new(
+ return perl5i::1::DateTime::y2038->new(
year => $year,
month => $mon,
day => $mday,
hour => $hour,
minute => $min,
second => $sec,
time_zone => $tz,
- formatter => "DateTime::Format::CTime"
+ formatter => "perl5i::1::DateTime::Format::CTime"
);
}
@@ -102,15 +102,15 @@ sub dt_time () {
state $formatter = DateTime::Format::Epoch->new( epoch => DateTime->from_epoch( epoch => 0 ) );
require DateTime;
- return DateTime::time->from_epoch(
+ return perl5i::1::DateTime::time->from_epoch(
epoch => time,
formatter => $formatter
);
}
{
- package DateTime::y2038;
+ package perl5i::1::DateTime::y2038;
# Don't load DateTime until we need it.
our @ISA = qw(DateTime);
@@ -170,9 +170,9 @@ sub dt_time () {
{
- package DateTime::time;
+ package perl5i::1::DateTime::time;
- use parent -norequire, qw(DateTime::y2038);
+ use parent -norequire, qw(perl5i::1::DateTime::y2038);
use overload
"0+" => sub { $_[0]->epoch },
@@ -214,7 +214,7 @@ sub dt_time () {
{
- package DateTime::Format::CTime;
+ package perl5i::1::DateTime::Format::CTime;
use CLASS;

0 comments on commit 4bb722c

Please sign in to comment.