← Back to branch summary

~ubuntu-branches/ubuntu/raring/librose-datetime-perl/raring

« back to all changes in this revision

Viewing changes to lib/Rose/DateTime/Util.pm

  • Committer: Bazaar Package Importer
  • Author(s): Krzysztof Krzyżaniak (eloy)
  • Date: 2010-03-23 11:44:50 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20100323114450-n4hb9xx6y1oog78s
Tags: 0.534-1
* New upstream release
* debian/control: update Standards-Version to 3.8.4 without any changes
* debian/source/format: added file with "1.0" content

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Rose/DateTime/Util.pm
18
18
  all => \@EXPORT_OK
19
19
);
20
20
 
21
 
our $VERSION = '0.533';
 
21
our $VERSION = '0.534';
22
22
 
23
23
our $TZ = 'floating';
24
24
our $Debug = 0;
57
57
 
58
58
  my $locale_class = DateTime::Locale->load(DateTime->DefaultLocale);
59
59
 
60
 
  if($locale_class->date_parts_order eq 'dmy')
 
60
  my $short = $locale_class->date_format_short;
 
61
  
 
62
  $short =~ tr{dmyDMY}{}cd;
 
63
  $short =~ tr{dmyDMY}{dmydmy}s;
 
64
 
 
65
  # date_parts_order() is deprecated in DateTime::Locale 0.44+
 
66
  #if($locale_class->date_parts_order eq 'dmy')
 
67
  if($short eq 'dmy')
61
68
  {
62
69
    return 1;
63
70
  }
808
815
 
809
816
=head1 LICENSE
810
817
 
811
 
Copyright (c) 2004-2006 by John C. Siracusa.  All rights reserved.  This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
 
818
Copyright (c) 2010 by John C. Siracusa.  All rights reserved.  This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.