Lines Matching refs:thing
107 my ($thing) = @_;
110 while($$thing =~ s/%b64\[(.*?)\]b64%/%%B64%%/i) {
116 $$thing =~ s/%%B64%%/$enc/;
119 while($$thing =~ s/%hex\[(.*?)\]hex%/%%HEX%%/i) {
123 $$thing =~ s/%%HEX%%/$d/;
126 while($$thing =~ s/%repeat\[(\d+) x (.*?)\]%/%%REPEAT%%/i) {
131 $$thing =~ s/%%REPEAT%%/$all/;
135 $$thing =~ s/%include ([^%]*)%[\n\r]+/includefile($1)/ge;
140 my ($force, $thing) = @_;
144 $$thing =~ s/\x0d*\x0a/\x0d\x0a/;
155 if(($$thing =~ /^HTTP\/(1.1|1.0|2|3) [1-5][^\x0d]*\z/) ||
156 ($$thing =~ /^(GET|POST|PUT|DELETE) \S+ HTTP\/\d+(\.\d+)?/) ||
157 (($$thing =~ /^[a-z0-9_-]+: [^\x0d]*\z/i) &&
159 ($$thing !~ /^curl: \(\d+\) /))) {
161 $$thing =~ s/\x0d*\x0a/\x0d\x0a/;
165 if(($$thing =~ /^\n\z/) && $prevupdate) {
168 $$thing =~ s/\x0a/\x0d\x0a/;
205 # This does the same thing as String::ShellQuote but doesn't need a package.