aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--t/008filter.t10
1 files changed, 5 insertions, 5 deletions
diff --git a/t/008filter.t b/t/008filter.t
index 0c38380df..c0ee3b131 100644
--- a/t/008filter.t
+++ b/t/008filter.t
@@ -110,7 +110,7 @@ foreach my $path (@Support::Templates::include_paths) {
# /g means we execute this loop for every match
# /s means we ignore linefeeds in the regexp matches
- while ($slurp =~ /\[%(.*?)%\]/gs) {
+ while ($slurp =~ /\[%(?:-|\+|~)?(.*?)(?:-|\+|~)?%\]/gs) {
my $directive = $1;
my @lineno = ($` =~ m/\n/gs);
@@ -155,11 +155,11 @@ sub directive_ok {
my ($file, $directive) = @_;
# Comments
- return 1 if $directive =~ /^[+-]?#/;
+ return 1 if $directive =~ /^#/;
- # Remove any leading/trailing + or - and whitespace.
- $directive =~ s/^[+-]?\s*//;
- $directive =~ s/\s*[+-]?$//;
+ # Remove any leading/trailing whitespace.
+ $directive =~ s/^\s*//;
+ $directive =~ s/\s*$//;
# Empty directives are ok; they are usually line break helpers
return 1 if $directive eq '';