Attachment 887606 Details for Bug 192400 – Updated long-string workaround patch for perl-YAML

[patch] Updated long-string workaround patch for perl-YAML

perl-YAML-fix-long-strings.diff (text/plain), 1.11 KB, created by Conrad Meyer on 2014-04-18 15:36:40 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Conrad Meyer

Created: 2014-04-18 15:36:40 UTC

Size: 1.11 KB

patch

obsolete

>--- /usr/share/perl5/vendor_perl/YAML/Loader.pm.orig	2014-04-18 08:19:16.350489078 -0700
>+++ /usr/share/perl5/vendor_perl/YAML/Loader.pm	2014-04-18 08:30:16.245309635 -0700
>@@ -508,14 +508,32 @@
>           unless $self->{inline} =~ s/^\,\s*//;
>     }
>     return $node;
> }
> 
>+# Work around using regexps to parse stupidly long expressions
>+sub _parse_inline_double_quoted_regexp_work_around {
>+    my $self = shift;
>+    my @list;
>+    local $_ = $self->{inline};
>+    s{^"}{} or $self->die('YAML_PARSE_ERR_BAD_DOUBLE');
>+    push @list, $1
>+      while s{^((?:\\.|[^\"\\]+){1,10000})}{};
>+    s/\\"/"/g for @list;
>+    s{^"}{} or $self->die('YAML_PARSE_ERR_BAD_DOUBLE');
>+    $self->{inline} = $_;
>+    return join("", @list);
>+}
>+
>+
> # Parse the inline double quoted string.
> sub _parse_inline_double_quoted {
>-    my $self = shift;
>+    my $self = $_[0];
>     my $node;
>+    return _parse_inline_double_quoted_regexp_work_around(@_)
>+      if length($self->{inline}) > 10_000;
>+    shift;
>     if ($self->inline =~ /^"((?:\\"|[^"])*)"\s*(.*)$/) {
>         $node = $1;
>         $self->inline($2);
>         $node =~ s/\\"/"/g;
>     }

Actions: View | Diff

Attachments on bug 192400: 129717 | 887606