Index: /lang/perl/URI-Escape-XS/trunk/XS.xs
===================================================================
--- /lang/perl/URI-Escape-XS/trunk/XS.xs (revision 12880)
+++ /lang/perl/URI-Escape-XS/trunk/XS.xs (revision 28488)
@@ -1,4 +1,4 @@
 /*
- * $Id: XS.xs,v 0.2 2008/05/30 23:53:13 dankogai Exp $
+ * $Id: XS.xs,v 0.3 2009/01/16 06:38:52 dankogai Exp dankogai $
  */
 
@@ -84,4 +84,5 @@
 		    && isxdigit(src[i+4]) && isxdigit(src[i+5])){
 		strncpy((char *)buf, (char *)(src + i + 2), 4);
+		buf[4] = '\0'; /* RT#39135 */
 		hi = strtol((char *)buf, NULL, 16);
 		i += 5;
Index: /lang/perl/URI-Escape-XS/trunk/t/03-hashu.t
===================================================================
--- /lang/perl/URI-Escape-XS/trunk/t/03-hashu.t (revision 12881)
+++ /lang/perl/URI-Escape-XS/trunk/t/03-hashu.t (revision 28488)
@@ -1,5 +1,5 @@
 #!perl -w
 #
-# $Id: 03-hashu.t,v 0.2 2008/05/31 00:48:19 dankogai Exp dankogai $
+# $Id: 03-hashu.t,v 0.2 2008/05/31 00:48:19 dankogai Exp $
 #
 # Original as URI-1.35/t/escape.t
Index: /lang/perl/URI-Escape-XS/trunk/lib/URI/Escape/XS.pm
===================================================================
--- /lang/perl/URI-Escape-XS/trunk/lib/URI/Escape/XS.pm (revision 12881)
+++ /lang/perl/URI-Escape-XS/trunk/lib/URI/Escape/XS.pm (revision 28488)
@@ -1,10 +1,10 @@
 package URI::Escape::XS;
 #
-# $Id: XS.pm,v 0.2 2008/05/31 00:00:32 dankogai Exp $
+# $Id: XS.pm,v 0.3 2009/01/16 06:38:52 dankogai Exp dankogai $
 #
 use 5.008001;
 use warnings;
 use strict;
-our $VERSION = sprintf "%d.%02d", q$Revision: 0.2 $ =~ /(\d+)/g;
+our $VERSION = sprintf "%d.%02d", q$Revision: 0.3 $ =~ /(\d+)/g;
 
 use base qw(Exporter);
@@ -26,6 +26,8 @@
     my %regexp;
     sub uri_escape {
-	my($text, $patn) = @_;
+	return unless @_;
+	my ($text, $patn) = @_;
 	return undef unless defined $text;
+	$text .= ''; 	# RT#39344 -- force string
 	if (defined $patn){
 	    unless (exists $regexp{$patn}){
@@ -57,5 +59,5 @@
 =head1 VERSION
 
-$Id: XS.pm,v 0.2 2008/05/31 00:00:32 dankogai Exp $
+$Id: XS.pm,v 0.3 2009/01/16 06:38:52 dankogai Exp dankogai $
 
 =cut
Index: /lang/perl/URI-Escape-XS/trunk/Changes
===================================================================
--- /lang/perl/URI-Escape-XS/trunk/Changes (revision 12880)
+++ /lang/perl/URI-Escape-XS/trunk/Changes (revision 28488)
@@ -1,8 +1,16 @@
 #
-# $Id: Changes,v 0.2 2008/05/30 23:53:13 dankogai Exp $
+# $Id: Changes,v 0.3 2009/01/16 06:38:52 dankogai Exp dankogai $
 #
 # Revision history for Revision history for URI-Escape-XS
 #
-$Revision: 0.2 $ $Date: 2008/05/30 23:53:13 $
+$Revision: 0.3 $ $Date: 2009/01/16 06:38:52 $
+! XS.pm
+  Arguments are now unconditionally stringified
+  http://rt.cpan.org/Public/Bug/Display.html?39344
+! XS.xs
+  Addressed test failure on 5.10.x and others
+  http://rt.cpan.org/Public/Bug/Display.html?39135
+
+0.02 2008/05/30 23:53:13
 ! XS.xs
   s/ishexnumber/isxdigit/g # for better compatibility