Page MenuHomePhorge
Files F2683996

D25436.1734695374.diff
No OneTemporary
Actions

D25436.1734695374.diff
View Options

diff --git a/src/utils/PhutilCowsay.php b/src/utils/PhutilCowsay.php
--- a/src/utils/PhutilCowsay.php
+++ b/src/utils/PhutilCowsay.php
@@ -40,35 +40,32 @@
$width = 40;
$template = $this->template;
- // Real ".cow" files are Perl scripts which define a variable called
- // "$the_cow". We aren't going to interpret Perl, so strip all this stuff
- // (and any comments in the file) away.
- $template = phutil_split_lines($template, true);
- $keep = array();
- $is_perl_cowfile = false;
- foreach ($template as $key => $line) {
- if (preg_match('/^#/', $line)) {
- continue;
- }
- if (preg_match('/^\s*\\$the_cow/', $line)) {
- $is_perl_cowfile = true;
- continue;
- }
- if (preg_match('/^\s*EOC\s*$/', $line)) {
- continue;
- }
- $keep[] = $line;
- }
- $template = implode('', $keep);
- // Original .cow files are perl scripts which contain escaped sequences.
- // We attempt to unescape here by replacing any character preceded by a
- // backslash/escape with just that character.
- if ($is_perl_cowfile) {
+ $m = null; // Predeclare for lint. To be populated by preg_match.
+
+ // Real ".cow" files are Perl scripts which define a variable called
+ // "$the_cow". We aren't going to interpret Perl, so just get everything
+ // between the EOC (End Of Cow) tokens. The initial EOC might be in
+ // quotes, and might have a semicolon.
+ // We apply regexp modifiers
+ // * 's' to make . match newlines within the EOC ... EOC block
+ // * 'm' so we can use ^ to match start of line within the multiline string
+ if (
+ preg_match('/\$the_cow/', $template) &&
+ preg_match('/EOC[\'"]?;?.*?^(.*?)^EOC/sm', $template, $m)
+ ) {
+ $template = $m[1];
+
+ // Original .cow files are perl scripts which contain escaped sequences.
+ // We attempt to unescape here by replacing any character preceded by a
+ // backslash/escape with just that character.
$template = preg_replace(
'/\\\\(.)/',
'$1',
$template);
+ } else {
+ // Text template. Just strip away comments.
+ $template = preg_replace('/^#.*$/', '', $template);
}
$token_patterns = array(

File Metadata

Mime Type
text/plain
Expires
Fri, Dec 20, 11:49 (17 h, 18 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
1017464
Default Alt Text
D25436.1734695374.diff (2 KB)

Event Timeline

Content licensed under Creative Commons Attribution-ShareAlike 4.0 (CC-BY-SA) unless otherwise noted; code licensed under Apache 2.0 or other open source licenses. · CC BY-SA 4.0 · Apache 2.0