[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