+147
-319
lines changedFilter options
+147
-319
lines changed Original file line number Diff line number Diff line change
@@ -1947,8 +1947,10 @@ PREINIT:
1947 1947
STRLEN namelen;
1948 1948
const char* nameptr = SvPV(name, namelen);
1949 1949
int utf8flag = SvUTF8(name);
1950 +
#if PERL_VERSION_LT(5, 41, 3)
1950 1951
int quotes_seen = 0;
1951 1952
bool need_subst = FALSE;
1953 +
#endif
1952 1954
PPCODE:
1953 1955
if (!SvROK(sub) && SvGMAGICAL(sub))
1954 1956
mg_get(sub);
@@ -1971,18 +1973,23 @@ PPCODE:
1971 1973
if (s > nameptr && *s == ':' && s[-1] == ':') {
1972 1974
end = s - 1;
1973 1975
begin = ++s;
1976 +
#if PERL_VERSION_LT(5, 41, 3)
1974 1977
if (quotes_seen)
1975 1978
need_subst = TRUE;
1979 +
#endif
1976 1980
}
1981 +
#if PERL_VERSION_LT(5, 41, 3)
1977 1982
else if (s > nameptr && *s != '\0' && s[-1] == '\'') {
1978 1983
end = s - 1;
1979 1984
begin = s;
1980 1985
if (quotes_seen++)
1981 1986
need_subst = TRUE;
1982 1987
}
1988 +
#endif
1983 1989
}
1984 1990
s--;
1985 1991
if (end) {
1992 +
#if PERL_VERSION_LT(5, 41, 3)
1986 1993
SV* tmp;
1987 1994
if (need_subst) {
1988 1995
STRLEN length = end - nameptr + quotes_seen - (*end == '\'' ? 1 : 0);
@@ -2002,6 +2009,7 @@ PPCODE:
2002 2009
stash = gv_stashpvn(left, length, GV_ADD | utf8flag);
2003 2010
}
2004 2011
else
2012 +
#endif
2005 2013
stash = gv_stashpvn(nameptr, end - nameptr, GV_ADD | utf8flag);
2006 2014
nameptr = begin;
2007 2015
namelen -= begin - nameptr;
@@ -16,7 +16,7 @@ our @EXPORT_OK = qw(
16 16
sample shuffle uniq uniqint uniqnum uniqstr zip zip_longest zip_shortest mesh mesh_longest mesh_shortest
17 17
head tail pairs unpairs pairkeys pairvalues pairmap pairgrep pairfirst
18 18
);
19 -
our $VERSION = "1.63";
19 +
our $VERSION = "1.63_01";
20 20
our $XS_VERSION = $VERSION;
21 21
$VERSION =~ tr/_//d;
22 22
@@ -3,7 +3,7 @@ use strict;
3 3
use warnings;
4 4
use List::Util;
5 5 6 -
our $VERSION = "1.63"; # FIXUP
6 +
our $VERSION = "1.63_01"; # FIXUP
7 7
$VERSION =~ tr/_//d; # FIXUP
8 8 9 9
1;
@@ -17,7 +17,7 @@ our @EXPORT_OK = qw(
17 17
dualvar isdual isvstring looks_like_number openhandle readonly set_prototype
18 18
tainted
19 19
);
20 -
our $VERSION = "1.63";
20 +
our $VERSION = "1.63_01";
21 21
$VERSION =~ tr/_//d;
22 22 23 23
require List::Util; # List::Util loads the XS
@@ -15,7 +15,7 @@ our @EXPORT_OK = qw(
15 15
subname set_subname
16 16
);
17 17 18 -
our $VERSION = "1.63";
18 +
our $VERSION = "1.63_01";
19 19
$VERSION =~ tr/_//d;
20 20 21 21
require List::Util; # as it has the XS
@@ -45,7 +45,7 @@ sub caller3_ok {
45 45
),
46 46
);
47 47 48 -
$expected =~ s/'/::/g;
48 +
$expected =~ s/'/::/g if $] < 5.041_003;
49 49 50 50
# this is apparently how things worked before 5.16
51 51
utf8::encode($expected) if $] < 5.016 and $ord > 255;
@@ -83,7 +83,8 @@ push @ordinal,
83 83 84 84
plan tests => @ordinal * 2 * 3;
85 85 86 -
my $legal_ident_char = "A-Z_a-z0-9'";
86 +
my $legal_ident_char = "A-Z_a-z0-9";
87 +
$legal_ident_char .= "'" if $] < 5.041_003;
87 88
$legal_ident_char .= join '', map chr, 0x100, 0x498
88 89
unless $] < 5.008;
89 90
@@ -1,7 +1,7 @@
1 1
package parent;
2 2
use strict;
3 3 4 -
our $VERSION = '0.241';
4 +
our $VERSION = '0.241_001';
5 5 6 6
sub import {
7 7
my $class = shift;
@@ -24,7 +24,7 @@ use lib 't/lib';
24 24 25 25
{
26 26
package Child3;
27 -
use parent "Dummy'Outside";
27 +
use if $] < 5.041_003, parent => "Dummy'Outside";
28 28
}
29 29 30 30
my $obj = {};
@@ -39,9 +39,13 @@ isa_ok $obj, 'Dummy::InlineChild';
39 39
can_ok $obj, 'exclaim';
40 40
is $obj->exclaim, "I CAN FROM Dummy::InlineChild", 'Inheritance is set up correctly for inlined classes';
41 41 42 +
SKIP:
43 +
{
44 +
skip "No ' in names from 5.041_003", 3 if $] >= 5.041_003;
42 45
$obj = {};
43 46
bless $obj, 'Child3';
44 47
isa_ok $obj, 'Dummy::Outside';
45 48
can_ok $obj, 'exclaim';
46 49
is $obj->exclaim, "I CAN FROM Dummy::Outside", "Inheritance is set up correctly for classes inherited from via '";
47 50 51 +
}
Original file line number Diff line number Diff line change
@@ -2995,12 +2995,6 @@ EXpx |char * |scan_word |NN char *s \
2995 2995
|STRLEN destlen \
2996 2996
|int allow_package \
2997 2997
|NN STRLEN *slp
2998 -
EXpx |char * |scan_word6 |NN char *s \
2999 -
|NN char *dest \
3000 -
|STRLEN destlen \
3001 -
|int allow_package \
3002 -
|NN STRLEN *slp \
3003 -
|bool warn_tick
3004 2998
Cp |U32 |seed
3005 2999
: Only used by perl.c/miniperl.c, but defined in caretx.c
3006 3000
ep |void |set_caret_X
@@ -5894,8 +5888,7 @@ S |void |parse_ident |NN char **s \
5894 5888
|NN char * const e \
5895 5889
|int allow_package \
5896 5890
|bool is_utf8 \
5897 -
|bool check_dollar \
5898 -
|bool tick_warn
5891 +
|bool check_dollar
5899 5892
S |int |pending_ident
5900 5893
RS |char * |scan_const |NN char *start
5901 5894
RS |char * |scan_formline |NN char *s
@@ -1629,7 +1629,7 @@
1629 1629
# define lop(a,b,c) S_lop(aTHX_ a,b,c)
1630 1630
# define missingterm(a,b) S_missingterm(aTHX_ a,b)
1631 1631
# define no_op(a,b) S_no_op(aTHX_ a,b)
1632 -
# define parse_ident(a,b,c,d,e,f,g) S_parse_ident(aTHX_ a,b,c,d,e,f,g)
1632 +
# define parse_ident(a,b,c,d,e,f) S_parse_ident(aTHX_ a,b,c,d,e,f)
1633 1633
# define pending_ident() S_pending_ident(aTHX)
1634 1634
# define scan_const(a) S_scan_const(aTHX_ a)
1635 1635
# define scan_formline(a) S_scan_formline(aTHX_ a)
@@ -1765,7 +1765,6 @@
1765 1765
# define report_uninit(a) Perl_report_uninit(aTHX_ a)
1766 1766
# define scan_str(a,b,c,d,e) Perl_scan_str(aTHX_ a,b,c,d,e)
1767 1767
# define scan_word(a,b,c,d,e) Perl_scan_word(aTHX_ a,b,c,d,e)
1768 -
# define scan_word6(a,b,c,d,e,f) Perl_scan_word6(aTHX_ a,b,c,d,e,f)
1769 1768
# define skipspace_flags(a,b) Perl_skipspace_flags(aTHX_ a,b)
1770 1769
# define sv_magicext_mglob(a) Perl_sv_magicext_mglob(aTHX_ a)
1771 1770
# define sv_only_taint_gmagic Perl_sv_only_taint_gmagic
You can’t perform that action at this time.
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4