Dirk Stoecker
54d631594b
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Data-Undump?expand=0&rev=2
61 lines
3.1 KiB
Diff
61 lines
3.1 KiB
Diff
--- Undump.xs 2013-08-22 09:51:50.000000000 -0700
|
|
+++ Undump.xs.bay-max 2018-01-03 14:35:27.000000000 -0800
|
|
@@ -897,53 +897,10 @@
|
|
if (WANT_KEY(fs)) {
|
|
DONE_KEY_SIMPLE_break;
|
|
}
|
|
- ch= ps_parse_ptr - fs_token_start;
|
|
- if (fs_token_start[0] == '-') {
|
|
- IV iv= 0;
|
|
- if ( ch < 12) {
|
|
- fs_token_start++;
|
|
- switch (ch) {
|
|
- case 11: iv -= (*fs_token_start++ - '0') * 1000000000L;
|
|
- case 10: iv -= (*fs_token_start++ - '0') * 100000000L;
|
|
- case 9: iv -= (*fs_token_start++ - '0') * 10000000L;
|
|
- case 8: iv -= (*fs_token_start++ - '0') * 1000000L;
|
|
- case 7: iv -= (*fs_token_start++ - '0') * 100000L;
|
|
- case 6: iv -= (*fs_token_start++ - '0') * 10000L;
|
|
- case 5: iv -= (*fs_token_start++ - '0') * 1000L;
|
|
- case 4: iv -= (*fs_token_start++ - '0') * 100L;
|
|
- case 3: iv -= (*fs_token_start++ - '0') * 10L;
|
|
- case 2: iv -= (*fs_token_start++ - '0') * 1L;
|
|
- break;
|
|
- default:
|
|
- PANICf1(ps,fs,"Strange length for negative integer in switch: %d", ch);
|
|
- }
|
|
- fs_got= newSViv(iv);
|
|
- } else {
|
|
- goto MAKE_SV;
|
|
- }
|
|
- } else {
|
|
- if (ch < 11 ) {
|
|
- UV uv= 0;
|
|
- switch (ch) {
|
|
- case 10: uv += (*fs_token_start++ - '0') * 1000000000L;
|
|
- case 9: uv += (*fs_token_start++ - '0') * 100000000L;
|
|
- case 8: uv += (*fs_token_start++ - '0') * 10000000L;
|
|
- case 7: uv += (*fs_token_start++ - '0') * 1000000L;
|
|
- case 6: uv += (*fs_token_start++ - '0') * 100000L;
|
|
- case 5: uv += (*fs_token_start++ - '0') * 10000L;
|
|
- case 4: uv += (*fs_token_start++ - '0') * 1000L;
|
|
- case 3: uv += (*fs_token_start++ - '0') * 100L;
|
|
- case 2: uv += (*fs_token_start++ - '0') * 10L;
|
|
- case 1: uv += (*fs_token_start++ - '0') * 1L;
|
|
- break;
|
|
- default:
|
|
- PANICf1(ps,fs,"Strange length for integer in switch: %d", ch);
|
|
- }
|
|
- fs_got= newSVuv(uv);
|
|
- } else {
|
|
- goto MAKE_SV;
|
|
- }
|
|
- }
|
|
+
|
|
+ fs_got= newSVpvn(fs_token_start, ps_parse_ptr - fs_token_start);
|
|
+ fs_got= newSViv(SvIV(fs_got));
|
|
+
|
|
goto GOT_SV;
|
|
}
|
|
case TOKEN_NV:
|