Lines Matching refs:src
65 my ($obj, undef, $src, $pos, $trm, $chk) = @_;
74 substr($src, 0, $pos) = '';
76 my $ini_len = bytes::length($src);
79 # XXX: Is better C<$src =~ s/^\x7E// or die if ...>?
80 $src =~ s/^\x7E// if $trm eq "\x7E";
82 while (length $src) {
85 if ($src =~ s/^([\x00-\x7D\x7F])//) { # no '~' => ASCII
88 elsif ($src =~ s/^\x7E\x7E//) { # escaped tilde
91 elsif ($src =~ s/^\x7E\cJ//) { # '\cJ' == LF in ASCII
94 elsif ($src =~ s/^\x7E\x7B//) { # '~{'
103 if ($src =~ s/^((?:[\x21-\x77][\x21-\x7F])+)//) {
106 elsif ($src =~ s/^\x7E\x7D//) { # '~}'
121 $$rpos = $ini_pos + $pos + $ini_len - bytes::length($src);
128 $$rpos = $ini_pos + $pos + $ini_len - bytes::length($src);