diff options
| author | Karl Williamson <khw@cpan.org> | 2015-02-18 13:00:07 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-02-18 13:00:55 -0700 |
| commit | 401e2e00ace982c02f2f3ec5b9545b0e2fb401ad (patch) | |
| tree | 0de837dc4487742270018d9d50afec9b81b61f57 | |
| parent | 40416981c6fd7d3e5668285c2762ac534f4d1e06 (diff) | |
| download | perl-401e2e00ace982c02f2f3ec5b9545b0e2fb401ad.tar.gz | |
lib/B/Deparse.t: Suppress unescaped qr/{/ message
| -rw-r--r-- | lib/B/Deparse.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t index 01954759e8..f536284e28 100644 --- a/lib/B/Deparse.t +++ b/lib/B/Deparse.t @@ -504,7 +504,7 @@ like runperl(stderr => 1, switches => [ '-MO=-qq,Deparse', $path ], like runperl(stderr => 1, switches => [ '-MO=-qq,Deparse', $path ], prog => 'use feature lexical_subs=>state=>; state sub sb5; sub { sub sb5 { } }'), - qr/sub \{\s*\(\);\s*sub sb5 {/m, + qr/sub \{\s*\(\);\s*sub sb5 \{/m, 'state sub in anon sub but declared outside'; is runperl(stderr => 1, switches => [ '-MO=-qq,Deparse', $path ], |