r57514 - in /trunk/libxml-xql-perl: lib/XML/XQL.pm t/xql_sin2.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Wed May 5 15:10:45 UTC 2010
Author: gregoa
Date: Wed May 5 15:10:38 2010
New Revision: 57514
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57514
Log:
un-apply patches
Modified:
trunk/libxml-xql-perl/lib/XML/XQL.pm
trunk/libxml-xql-perl/t/xql_sin2.t
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=57514&op=diff
==============================================================================
--- trunk/libxml-xql-perl/lib/XML/XQL.pm (original)
+++ trunk/libxml-xql-perl/lib/XML/XQL.pm Wed May 5 15:10:38 2010
@@ -3161,7 +3161,7 @@
# Text, CDATASection:
# - xql_data: return expanded text value
#
-# -xql_element could be overridden to speed up performance
+# -xql_element could be overriden to speed up performance
#
1;
@@ -3363,8 +3363,8 @@
new XML::XQL::Date ($elem->xql_text, $elem);
});
-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.
+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.
=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 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.
+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.
=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
-overridden by the user.)
+overriden 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=57514&op=diff
==============================================================================
--- trunk/libxml-xql-perl/t/xql_sin2.t (original)
+++ trunk/libxml-xql-perl/t/xql_sin2.t Wed May 5 15:10:38 2010
@@ -22,7 +22,7 @@
$^W=0;
my $data = join('',<DATA>);
#print "{{$data}}\n{{$str}}\n";
- assert_ok ($str =~ /^$data$/s);
+ assert_ok ($str eq $data);
}
#Test 2
@@ -49,15 +49,15 @@
__DATA__
<array>
<item index='0'>
- <obj type='XML::XQL::Number'>0\.841470984807[0-9]+</obj>
+ <obj type='XML::XQL::Number'>0.841470984807897</obj>
</item>
<item index='1'>
- <obj type='XML::XQL::Number'>0\.909297426825[0-9]+</obj>
+ <obj type='XML::XQL::Number'>0.909297426825682</obj>
</item>
<item index='2'>
- <obj type='XML::XQL::Number'>0\.141120008059[0-9]+</obj>
+ <obj type='XML::XQL::Number'>0.141120008059867</obj>
</item>
<item index='3'>
- <obj type='XML::XQL::Number'>-0\.756802495307[0-9]+</obj>
+ <obj type='XML::XQL::Number'>-0.756802495307928</obj>
</item>
</array>
More information about the Pkg-perl-cvs-commits
mailing list