summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
d6c6337)
This fixes a warning when using self-closing action tags.
my($plugin, $action, $attr, $content) = @_;
my $result;
my($plugin, $action, $attr, $content) = @_;
my $result;
- $content =~ s#<\@((?:\w|::)+?)\.(\w+?)\s+?(.+?)?(?:>(.*?)<\/\@\1\.\2>|\s+?\/>)#&interpolate_fancy::_action($1,$2,$3,$4)#gse;
+ if (defined $content) {
+ $content =~ s#<\@((?:\w|::)+?)\.(\w+?)\s+?(.+?)?(?:>(.*?)<\/\@\1\.\2>|\s+?\/>)#&interpolate_fancy::_action($1,$2,$3,$4)#gse;
+ }
my $attributes = interpolate_fancy::_attributes($attr);
my $attributes = interpolate_fancy::_attributes($attr);