| Subject: | Warning about DateTime::Local deprecated methods |
Warnings about "month_names" and "month_abbreviations" methods,
which are deprecated in the recent releases of DateTime::Locale.
The attached patch fixes these warnings.
| Subject: | dt-f-roman.patch |
diff -ru DateTime-Format-Roman-0.03/Changes DateTime-Format-Roman-0.04/Changes
--- DateTime-Format-Roman-0.03/Changes 2004-10-18 18:38:12.000000000 +0200
+++ DateTime-Format-Roman-0.04/Changes 2011-07-27 20:27:13.853875126 +0200
@@ -1,5 +1,8 @@
Revision history for Perl module DateTime::Format::Roman
+0.04 ?? mmxi
+ - remove the warning about the month_abbreviations method
+
0.03 xv kal nov anno mmiv
- added default pattern
- format_datetime() can nnow be used as a class method
diff -ru DateTime-Format-Roman-0.03/lib/DateTime/Format/Roman.pm DateTime-Format-Roman-0.04/lib/DateTime/Format/Roman.pm
--- DateTime-Format-Roman-0.03/lib/DateTime/Format/Roman.pm 2004-10-18 18:35:36.000000000 +0200
+++ DateTime-Format-Roman-0.04/lib/DateTime/Format/Roman.pm 2011-07-27 20:34:20.953992382 +0200
@@ -4,7 +4,7 @@
use vars qw($VERSION);
-$VERSION = 0.03;
+$VERSION = 0.04;
use DateTime 0.22;
@@ -33,8 +33,8 @@
my %dt_elem;
my %formats;
%formats =
- ( 'b' => sub { (shift->language->month_abbreviations)->[$dt_elem{month}-1] },
- 'B' => sub { (shift->language->month_names)->[$dt_elem{month}-1] },
+ ( 'b' => sub { (shift->language->month_format_abbreviated)->[$dt_elem{month}-1] },
+ 'B' => sub { (shift->language->month_format_wide) ->[$dt_elem{month}-1] },
'd' => sub { $dt_elem{day} },
'D' => sub { ($dt_elem{day} ne 1 && $dt_elem{day}.' ') . $formats{f}->(@_) },
'f' => sub { $fixed_days_names[$_[1]||0]{$dt_elem{fixed_day}} },