Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
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...
commit 4bb722c924d957738d7988161ddc5bf9f1ba826c 1 parent 395a002
@schwern schwern authored
View
6 Changes
@@ -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
2  lib/perl5i/0.pm
@@ -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 lib/perl5i/0/DateTime.pm
@@ -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,7 +40,7 @@ sub dt_localtime (;$) {
$year += 1900;
require DateTime;
- return DateTime::y2038->new(
+ return perl5i::0::DateTime::y2038->new(
year => $year,
month => $mon,
day => $mday,
@@ -48,7 +48,7 @@ sub dt_localtime (;$) {
minute => $min,
second => $sec,
time_zone => "local",
- formatter => "DateTime::Format::CTime"
+ formatter => "perl5i::0::DateTime::Format::CTime"
);
}
@@ -59,7 +59,7 @@ 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
);
@@ -67,7 +67,7 @@ sub dt_time () {
{
- 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
2  lib/perl5i/1.pm
@@ -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
18 lib/perl5i/1/DateTime.pm
@@ -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,7 +83,7 @@ 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,
@@ -91,7 +91,7 @@ sub dt_localtime (;$) {
minute => $min,
second => $sec,
time_zone => $tz,
- formatter => "DateTime::Format::CTime"
+ formatter => "perl5i::1::DateTime::Format::CTime"
);
}
@@ -102,7 +102,7 @@ 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
);
@@ -110,7 +110,7 @@ sub dt_time () {
{
- 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;
Please sign in to comment.
Something went wrong with that request. Please try again.