This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
B::Deparse fixup uninitialized error in deparsing weird glob statement
authorYves Orton <demerphq@gmail.com>
Thu, 6 Feb 2020 06:11:20 +0000 (07:11 +0100)
committerNicolas R <nicolas@atoomic.org>
Thu, 12 Mar 2020 23:55:17 +0000 (17:55 -0600)
This fixes issue #17537, and adds tests

lib/B/Deparse.pm
lib/B/Deparse.t

index ee126b1..aa6e6de 100644 (file)
@@ -3393,7 +3393,7 @@ sub pp_glob {
     my $kid = $op->first->sibling;  # skip pushmark
     my $keyword =
        $op->flags & OPf_SPECIAL ? 'glob' : $self->keyword('glob');
-    my $text = $self->deparse($kid);
+    my $text = $self->deparse($kid, $cx);
     return $cx >= 5 || $self->{'parens'}
        ? "$keyword($text)"
        : "$keyword $text";
index 07c9150..e06ef6e 100644 (file)
@@ -20,6 +20,8 @@ my $deparse = B::Deparse->new();
 isa_ok($deparse, 'B::Deparse', 'instantiate a B::Deparse object');
 my %deparse;
 
+sub dummy_sub {42}
+
 $/ = "\n####\n";
 while (<DATA>) {
     chomp;
@@ -679,6 +681,19 @@ readline $foo;
 glob $foo;
 glob $foo;
 ####
+# more <>
+no warnings;
+no strict;
+my $fh;
+if (dummy_sub < $fh > /bar/g) { 1 }
+>>>>
+no warnings;
+no strict;
+my $fh;
+if (dummy_sub(glob((' ' . $fh . ' ')) / 'bar' / 'g')) {
+    1;
+}
+####
 # readline
 readline 'FH';
 readline *$_;