[Bast-commits] r5896 - Devel-Declare/1.000/trunk

rafl at dev.catalyst.perl.org rafl at dev.catalyst.perl.org
Sat Apr 18 08:42:13 GMT 2009


Author: rafl
Date: 2009-04-18 09:42:13 +0100 (Sat, 18 Apr 2009)
New Revision: 5896

Modified:
   Devel-Declare/1.000/trunk/Declare.xs
Log:
Don't compare signed to unsigned.

Modified: Devel-Declare/1.000/trunk/Declare.xs
===================================================================
--- Devel-Declare/1.000/trunk/Declare.xs	2009-04-18 08:42:10 UTC (rev 5895)
+++ Devel-Declare/1.000/trunk/Declare.xs	2009-04-18 08:42:13 UTC (rev 5896)
@@ -187,7 +187,7 @@
 }
 
 int dd_toke_scan_str(pTHX_ int offset) {
-  int remaining = sv_len(PL_linestr) - offset;
+  STRLEN remaining = sv_len(PL_linestr) - offset;
   SV* line_copy = newSVsv(PL_linestr);
   char* base_s = SvPVX(PL_linestr) + offset;
   char* s = scan_str(base_s, FALSE, FALSE);




More information about the Bast-commits mailing list