r57488 - in /trunk/libxml-xql-perl: debian/README.source debian/changelog debian/control debian/patches/long-double.patch debian/patches/series debian/patches/spelling.patch debian/rules debian/source/ debian/source/format lib/XML/XQL.pm t/xql_sin2.t

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Wed May 5 10:22:23 UTC 2010


Author: ansgar-guest
Date: Wed May  5 10:22:03 2010
New Revision: 57488

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57488
Log:
* Make less assumptions on precision of floating point calculations.
  (Closes: #578897)
  + new patch: long-double.patch
* Use source format 3.0 (quilt); drop README.source and quilt framework.
* Bump Standards-Version to 3.8.4 (no changes).

Added:
    trunk/libxml-xql-perl/debian/patches/long-double.patch
    trunk/libxml-xql-perl/debian/source/
    trunk/libxml-xql-perl/debian/source/format
Removed:
    trunk/libxml-xql-perl/debian/README.source
Modified:
    trunk/libxml-xql-perl/debian/changelog
    trunk/libxml-xql-perl/debian/control
    trunk/libxml-xql-perl/debian/patches/series
    trunk/libxml-xql-perl/debian/patches/spelling.patch
    trunk/libxml-xql-perl/debian/rules
    trunk/libxml-xql-perl/lib/XML/XQL.pm
    trunk/libxml-xql-perl/t/xql_sin2.t

Modified: trunk/libxml-xql-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-xql-perl/debian/changelog?rev=57488&op=diff
==============================================================================
--- trunk/libxml-xql-perl/debian/changelog (original)
+++ trunk/libxml-xql-perl/debian/changelog Wed May  5 10:22:03 2010
@@ -1,3 +1,13 @@
+libxml-xql-perl (0.68-6) unstable; urgency=low
+
+  * Make less assumptions on precision of floating point calculations.
+    (Closes: #578897)
+    + new patch: long-double.patch
+  * Use source format 3.0 (quilt); drop README.source and quilt framework.
+  * Bump Standards-Version to 3.8.4 (no changes).
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Wed, 05 May 2010 19:20:52 +0900
+
 libxml-xql-perl (0.68-5) unstable; urgency=low
 
   [ gregor herrmann ]

Modified: trunk/libxml-xql-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-xql-perl/debian/control?rev=57488&op=diff
==============================================================================
--- trunk/libxml-xql-perl/debian/control (original)
+++ trunk/libxml-xql-perl/debian/control Wed May  5 10:22:03 2010
@@ -4,11 +4,11 @@
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Jay Bonci <jaybonci at debian.org>,
  Ansgar Burchardt <ansgar at 43-1.org>
-Standards-Version: 3.8.3
+Standards-Version: 3.8.4
 Homepage: http://search.cpan.org/dist/XML-XQL/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libxml-xql-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libxml-xql-perl/
-Build-Depends: debhelper (>= 7.0.50~), quilt (>= 0.46-7)
+Build-Depends: debhelper (>= 7.0.50~)
 Build-Depends-Indep: perl, libdate-manip-perl (>= 5.33), libparse-yapp-perl, libxml-dom-perl (>= 1.29), libxml-regexp-perl (>= 0.03)
 
 Package: libxml-xql-perl

Added: trunk/libxml-xql-perl/debian/patches/long-double.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-xql-perl/debian/patches/long-double.patch?rev=57488&op=file
==============================================================================
--- trunk/libxml-xql-perl/debian/patches/long-double.patch (added)
+++ trunk/libxml-xql-perl/debian/patches/long-double.patch Wed May  5 10:22:03 2010
@@ -1,0 +1,37 @@
+From: Ansgar Burchardt <ansgar at 43-1.org>
+Date: Wed, 05 May 2010 18:43:52 +0900
+Bug-Debian: http://bugs.debian.org/578897
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=57221
+Subject: Fix test failures when perl is compiled with long doubles
+
+--- libxml-xql-perl.orig/t/xql_sin2.t
++++ libxml-xql-perl/t/xql_sin2.t
+@@ -22,7 +22,7 @@
+     $^W=0;
+     my $data = join('',<DATA>);
+ #print "{{$data}}\n{{$str}}\n";
+-    assert_ok ($str eq $data);
++    assert_ok ($str =~ /^$data$/s);
+ }
+ #Test 2
+ 
+@@ -49,15 +49,15 @@
+ __DATA__
+ <array>
+   <item index='0'>
+-    <obj type='XML::XQL::Number'>0.841470984807897</obj>
++    <obj type='XML::XQL::Number'>0\.841470984807[0-9]+</obj>
+   </item>
+   <item index='1'>
+-    <obj type='XML::XQL::Number'>0.909297426825682</obj>
++    <obj type='XML::XQL::Number'>0\.909297426825[0-9]+</obj>
+   </item>
+   <item index='2'>
+-    <obj type='XML::XQL::Number'>0.141120008059867</obj>
++    <obj type='XML::XQL::Number'>0\.141120008059[0-9]+</obj>
+   </item>
+   <item index='3'>
+-    <obj type='XML::XQL::Number'>-0.756802495307928</obj>
++    <obj type='XML::XQL::Number'>-0\.756802495307[0-9]+</obj>
+   </item>
+ </array>

Modified: trunk/libxml-xql-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-xql-perl/debian/patches/series?rev=57488&op=diff
==============================================================================
--- trunk/libxml-xql-perl/debian/patches/series (original)
+++ trunk/libxml-xql-perl/debian/patches/series Wed May  5 10:22:03 2010
@@ -1,1 +1,2 @@
 spelling.patch
+long-double.patch

Modified: trunk/libxml-xql-perl/debian/patches/spelling.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-xql-perl/debian/patches/spelling.patch?rev=57488&op=diff
==============================================================================
--- trunk/libxml-xql-perl/debian/patches/spelling.patch (original)
+++ trunk/libxml-xql-perl/debian/patches/spelling.patch Wed May  5 10:22:03 2010
@@ -1,10 +1,19 @@
 From: Ansgar Burchardt <ansgar at 43-1.org>
-Date: Sun, 03 Jan 2010 20:02:19 +0900
+Date: Wed, 05 May 2010 18:43:52 +0900
 Subject: Fix spelling errors
 Bug: https://rt.cpan.org/Ticket/Display.html?id=54316
 
 --- libxml-xql-perl.orig/lib/XML/XQL.pm
 +++ libxml-xql-perl/lib/XML/XQL.pm
+@@ -3161,7 +3161,7 @@
+ # Text, CDATASection:
+ # - xql_data: return expanded text value
+ #
+-# -xql_element could be overriden to speed up performance
++# -xql_element could be overridden to speed up performance
+ #
+ 
+ 1;
 @@ -3363,8 +3363,8 @@
  		new XML::XQL::Date ($elem->xql_text, $elem); 
  	});
@@ -27,3 +36,12 @@
  
  =item defineTokenQ (Q)
  
+@@ -3830,7 +3830,7 @@
+ The resulting values are then casted to the type of the object with the highest
+ xql_primType() value. They are as follows: Node (0), Text (1), Number (2),
+ Boolean (3), Date (4), other data types (4 by default, but this may be
+-overriden by the user.)
++overridden by the user.)
+ 
+ E.g. if one value is a Text value and the other is a Number, the Text value is 
+ cast to a Number and the resulting low-level (Perl) comparison is (for $eq$):

Modified: trunk/libxml-xql-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-xql-perl/debian/rules?rev=57488&op=diff
==============================================================================
--- trunk/libxml-xql-perl/debian/rules (original)
+++ trunk/libxml-xql-perl/debian/rules Wed May  5 10:22:03 2010
@@ -4,7 +4,7 @@
 TMP     = $(CURDIR)/debian/$(PACKAGE)
 
 %:
-	dh --with quilt $@
+	dh $@
 
 override_dh_auto_install:
 	dh_auto_install

Added: trunk/libxml-xql-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-xql-perl/debian/source/format?rev=57488&op=file
==============================================================================
--- trunk/libxml-xql-perl/debian/source/format (added)
+++ trunk/libxml-xql-perl/debian/source/format Wed May  5 10:22:03 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)

Modified: trunk/libxml-xql-perl/lib/XML/XQL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-xql-perl/lib/XML/XQL.pm?rev=57488&op=diff
==============================================================================
--- trunk/libxml-xql-perl/lib/XML/XQL.pm (original)
+++ trunk/libxml-xql-perl/lib/XML/XQL.pm Wed May  5 10:22:03 2010
@@ -3161,7 +3161,7 @@
 # Text, CDATASection:
 # - xql_data: return expanded text value
 #
-# -xql_element could be overriden to speed up performance
+# -xql_element could be overridden to speed up performance
 #
 
 1;
@@ -3363,8 +3363,8 @@
 		new XML::XQL::Date ($elem->xql_text, $elem); 
 	});
 
-These convertors can only be specified at a global level, not on a per query
-basis. To undefine a convertor, simply pass a FUNCREF of undef.
+These converters can only be specified at a global level, not on a per query
+basis. To undefine a converter, simply pass a FUNCREF of undef.
 
 =item defineAttrValueConvertor (ELEM_TAG_NAME, ATTR_NAME, FUNCREF)
 
@@ -3378,8 +3378,8 @@
 FUNCREF should be a reference to a Perl function, e.g. \&my_sub, or
 an anonymous sub.
 
-These convertors can only be specified at a global level, not on a per query
-basis. To undefine a convertor, simply pass a FUNCREF of undef.
+These converters can only be specified at a global level, not on a per query
+basis. To undefine a converter, simply pass a FUNCREF of undef.
 
 =item defineTokenQ (Q)
 
@@ -3830,7 +3830,7 @@
 The resulting values are then casted to the type of the object with the highest
 xql_primType() value. They are as follows: Node (0), Text (1), Number (2),
 Boolean (3), Date (4), other data types (4 by default, but this may be
-overriden by the user.)
+overridden by the user.)
 
 E.g. if one value is a Text value and the other is a Number, the Text value is 
 cast to a Number and the resulting low-level (Perl) comparison is (for $eq$):

Modified: trunk/libxml-xql-perl/t/xql_sin2.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-xql-perl/t/xql_sin2.t?rev=57488&op=diff
==============================================================================
--- trunk/libxml-xql-perl/t/xql_sin2.t (original)
+++ trunk/libxml-xql-perl/t/xql_sin2.t Wed May  5 10:22:03 2010
@@ -22,7 +22,7 @@
     $^W=0;
     my $data = join('',<DATA>);
 #print "{{$data}}\n{{$str}}\n";
-    assert_ok ($str eq $data);
+    assert_ok ($str =~ /^$data$/s);
 }
 #Test 2
 
@@ -49,15 +49,15 @@
 __DATA__
 <array>
   <item index='0'>
-    <obj type='XML::XQL::Number'>0.841470984807897</obj>
+    <obj type='XML::XQL::Number'>0\.841470984807[0-9]+</obj>
   </item>
   <item index='1'>
-    <obj type='XML::XQL::Number'>0.909297426825682</obj>
+    <obj type='XML::XQL::Number'>0\.909297426825[0-9]+</obj>
   </item>
   <item index='2'>
-    <obj type='XML::XQL::Number'>0.141120008059867</obj>
+    <obj type='XML::XQL::Number'>0\.141120008059[0-9]+</obj>
   </item>
   <item index='3'>
-    <obj type='XML::XQL::Number'>-0.756802495307928</obj>
+    <obj type='XML::XQL::Number'>-0\.756802495307[0-9]+</obj>
   </item>
 </array>




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