r44868 - in /trunk/libnumber-format-perl: CHANGES Format.pm META.yml debian/changelog debian/control debian/copyright debian/rules t/locale.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Sat Sep 26 16:26:27 UTC 2009 

Author: jawnsy-guest
Date: Sat Sep 26 16:26:16 2009
New Revision: 44868

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=44868
Log:
* New upstream release
* Standards-Version 3.8.3 (no changes)
* Use new short rules format
* Add myself to Uploaders and Copyright

Modified:
    trunk/libnumber-format-perl/CHANGES
    trunk/libnumber-format-perl/Format.pm
    trunk/libnumber-format-perl/META.yml
    trunk/libnumber-format-perl/debian/changelog
    trunk/libnumber-format-perl/debian/control
    trunk/libnumber-format-perl/debian/copyright
    trunk/libnumber-format-perl/debian/rules
    trunk/libnumber-format-perl/t/locale.t

Modified: trunk/libnumber-format-perl/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnumber-format-perl/CHANGES?rev=44868&op=diff
==============================================================================
--- trunk/libnumber-format-perl/CHANGES (original)
+++ trunk/libnumber-format-perl/CHANGES Sat Sep 26 16:26:16 2009
@@ -1,3 +1,9 @@
+Changes for version 1.73 (September 25, 2009)
+------------------------
+  - Fix locale.t for RUR/RUB distinction (thanks Kevin Phair; RT 46660/45833)
+  - Skip locale.t for BSD (thanks Zak B. Elep; RT 48481/46367)
+  - In _get_self add UNIVERSAL::isa check on ref (thanks Jordan Macdonald)
+
 Changes for version 1.72 (May 5, 2009)
 ------------------------
   - Use Makefile.PL based on suggestion in RT 38020

Modified: trunk/libnumber-format-perl/Format.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnumber-format-perl/Format.pm?rev=44868&op=diff
==============================================================================
--- trunk/libnumber-format-perl/Format.pm (original)
+++ trunk/libnumber-format-perl/Format.pm Sat Sep 26 16:26:16 2009
@@ -211,7 +211,7 @@
                      other_vars       => \@EXPORT_OTHER,
                      all              => \@EXPORT_ALL );
 
-our $VERSION = '1.72';
+our $VERSION = '1.73';
 
 # Refer to http://www.opengroup.org/onlinepubs/007908775/xbd/locale.html
 # for more details about the POSIX variables
@@ -311,7 +311,9 @@
 my $DefaultObject;
 sub _get_self
 {
-    unless (ref $_[0])
+    # Not calling $_[0]->isa because that may result in unblessed
+    # reference error
+    unless (ref $_[0] && UNIVERSAL::isa($_[0], "Number::Format"))
     {
         $DefaultObject ||= new Number::Format();
         unshift (@_, $DefaultObject);
@@ -1192,6 +1194,12 @@
 
 =back
 
+=head1 CAVEATS
+
+Some systems, notably OpenBSD, may have incomplete locale support.
+Using this module together with L<setlocale(3)> in OpenBSD may therefore
+not produce the intended results.
+
 =head1 BUGS
 
 No known bugs at this time.  Report bugs using the CPAN request

Modified: trunk/libnumber-format-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnumber-format-perl/META.yml?rev=44868&op=diff
==============================================================================
--- trunk/libnumber-format-perl/META.yml (original)
+++ trunk/libnumber-format-perl/META.yml Sat Sep 26 16:26:16 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Number-Format
-version:             1.72
+version:             1.73
 abstract:            Perl extension for formatting numbers
 license:             perl
 author:              

Modified: trunk/libnumber-format-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnumber-format-perl/debian/changelog?rev=44868&op=diff
==============================================================================
--- trunk/libnumber-format-perl/debian/changelog (original)
+++ trunk/libnumber-format-perl/debian/changelog Sat Sep 26 16:26:16 2009
@@ -1,4 +1,10 @@
-libnumber-format-perl (1.72a-2) UNRELEASED; urgency=low
+libnumber-format-perl (1.73-1) UNRELEASED; urgency=low
+
+  [ Jonathan Yu ]
+  * New upstream release
+  * Standards-Version 3.8.3 (no changes)
+  * Use new short rules format
+  * Add myself to Uploaders and Copyright
 
   [ Nathan Handler ]
   * debian/watch: Update to ignore development releases.
@@ -6,7 +12,7 @@
   [ Ryan Niebur ]
   * Update ryan52's email address
 
- -- Ryan Niebur <ryan at debian.org>  Fri, 25 Sep 2009 00:25:50 -0700
+ -- Jonathan Yu <jawnsy at cpan.org>  Sat, 26 Sep 2009 08:28:43 -0400
 
 libnumber-format-perl (1.72a-1) unstable; urgency=low
 

Modified: trunk/libnumber-format-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnumber-format-perl/debian/control?rev=44868&op=diff
==============================================================================
--- trunk/libnumber-format-perl/debian/control (original)
+++ trunk/libnumber-format-perl/debian/control Sat Sep 26 16:26:16 2009
@@ -1,11 +1,12 @@
 Source: libnumber-format-perl
 Section: perl
 Priority: optional
+Build-Depends: debhelper (>= 7)
+Build-Depends-Indep: perl, locales-all
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Ivan Kohler <ivan-debian at 420.am>, Ryan Niebur <ryan at debian.org>
-Build-Depends: debhelper (>= 7), perl (>= 5.8)
-Build-Depends-Indep: locales-all
-Standards-Version: 3.8.1
+Uploaders: Ivan Kohler <ivan-debian at 420.am>, Ryan Niebur <ryan at debian.org>,
+ Jonathan Yu <jawnsy at cpan.org>
+Standards-Version: 3.8.3
 Homepage: http://search.cpan.org/dist/Number-Format/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libnumber-format-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libnumber-format-perl/
@@ -16,6 +17,5 @@
 Description: Perl module to format numbers for display
  Number::Format is a Perl module that formats numbers according to standard
  conventions, such as adding thousands separators and decimal points
- appropriate to the current locale.  It can also convert strings into
- numbers, format currency values, and convert numbers to KB, MB, and GB
- values.
+ appropriate to the current locale. It can also convert strings into numbers,
+ format currency values, and convert numbers to KB, MB, and GB values.

Modified: trunk/libnumber-format-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnumber-format-perl/debian/copyright?rev=44868&op=diff
==============================================================================
--- trunk/libnumber-format-perl/debian/copyright (original)
+++ trunk/libnumber-format-perl/debian/copyright Sat Sep 26 16:26:16 2009
@@ -1,19 +1,19 @@
 Format-Specification:
     http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
-Upstream-Maintainer: William R. Ward, SwPrAwM at cpan.org (remove "SPAM" before sending email,
-    leaving only my initials)
+Upstream-Maintainer: William R. Ward <wrw at cpan.org>
 Upstream-Source: http://search.cpan.org/dist/Number-Format/
 Upstream-Name: Number-Format
 
 Files: *
-Copyright: 1997-2008 by William R. Ward et al.
+Copyright: 1997-2008 by William R. Ward <wrw at cpan.org>
 License-Alias: Perl
 License: Artistic | GPL-1+
 
 Files: debian/*
-Copyright: 2005, Ola Lundqvist <opal at debian.org>
+Copyright: 2009, Jonathan Yu <jawnsy at cpan.org>
+ 2009, Ryan Niebur <ryan at debian.org>
  2007, Ivan Kohler <ivan-debian at 420.am>
- 2009, Ryan Niebur <ryan at debian.org>
+ 2005, Ola Lundqvist <opal at debian.org>
 License: Artistic | GPL-1+
 
 License: Artistic

Modified: trunk/libnumber-format-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnumber-format-perl/debian/rules?rev=44868&op=diff
==============================================================================
--- trunk/libnumber-format-perl/debian/rules (original)
+++ trunk/libnumber-format-perl/debian/rules Sat Sep 26 16:26:16 2009
@@ -1,23 +1,4 @@
 #!/usr/bin/make -f
 
-build: build-stamp
-build-stamp:
-	dh build
-	touch $@
-
-clean:
+%:
 	dh $@
-
-install: install-stamp
-install-stamp: build-stamp
-	dh install
-	touch $@
-
-binary-arch:
-
-binary-indep: install
-	dh $@
-
-binary: binary-arch binary-indep
-
-.PHONY: binary binary-arch binary-indep install clean build

Modified: trunk/libnumber-format-perl/t/locale.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnumber-format-perl/t/locale.t?rev=44868&op=diff
==============================================================================
--- trunk/libnumber-format-perl/t/locale.t (original)
+++ trunk/libnumber-format-perl/t/locale.t Sat Sep 26 16:26:16 2009
@@ -1,8 +1,17 @@
 # -*- CPerl -*-
 
-use Test::More qw(no_plan);
+use Test::More;
 use strict;
 use warnings;
+
+BEGIN {
+    # Do not test when under OpenBSD; see
+    # http://www.in-ulm.de/~mascheck/locale/ and
+    # http://undeadly.org/cgi?action=article&sid=20030206041352
+    plan skip_all => 'OpenBSD C library lacks locale support'
+        if $^O =~ /^(openbsd|dragonfly)$/;
+    plan 'no_plan';
+}
 
 BEGIN { use_ok('Number::Format') }
 BEGIN { use_ok('POSIX') }
@@ -41,7 +50,7 @@
     my $dec = $russian->{mon_decimal_point};
     my $num = "123${sep}456${dec}79";
 
-    is($russian->format_price(123456.789), "$num RUB ", "rubles");
+    like($russian->format_price(123456.789), qr/^$num RU[RB] $/, "rubles");
     is($russian->unformat_number("$num RUB "), 123456.79, "unformat rubles");
     is($russian->unformat_number($num), 123456.79, "unformat Russian 1");
     $num = "123${sep}456$russian->{decimal_point}79";

More information about the Pkg-perl-cvs-commits mailing list