perl-Mojolicious/Mojolicious-6.08.untaint.patch

14 lines
529 B
Diff

--- Mojolicious-6.08/lib/Mojo/Template.pm.orig 2015-03-15 22:50:25.000000000 -0400
+++ Mojolicious-6.08/lib/Mojo/Template.pm 2015-04-15 13:27:11.000000000 -0400
@@ -88,7 +88,9 @@
# Compile with line directive
return undef unless defined(my $code = $self->code);
- my $compiled = eval $self->_wrap($code);
+ # Workaround for use in taint check mode
+ $code =~ /(.*)/s;
+ my $compiled = eval $self->_wrap($1);
$self->compiled($compiled) and return undef unless $@;
# Use local stacktrace for compile exceptions