diff options
| author | Joshua N Pritikin <joshua@paloalto.com> | 2010-09-24 00:23:46 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-24 00:23:46 -0700 |
| commit | 972fc2eb7a3f863aa76a552076fe3decf92c3ec7 (patch) | |
| tree | 40ac92c927e2f982ec329fd3cb8fc519c9be9878 /lib/sigtrap.pm | |
| parent | 31febfb6427af204613963e9a4cdde07f18ff868 (diff) | |
| download | perl-972fc2eb7a3f863aa76a552076fe3decf92c3ec7.tar.gz | |
[perl #72340] sigtrap attempts to modify read-only thingy
No much to say. sigtrap otherwise attempts to modify a
read-only thingy. Patch below solves it for me.
Diffstat (limited to 'lib/sigtrap.pm')
| -rw-r--r-- | lib/sigtrap.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/sigtrap.pm b/lib/sigtrap.pm index 8577c728c7..35118a26ef 100644 --- a/lib/sigtrap.pm +++ b/lib/sigtrap.pm @@ -95,7 +95,8 @@ sub handler_traceback { # Now go for broke. for ($i = 1; ($p,$f,$l,$s,$h,$w,$e,$r) = caller($i); $i++) { @a = (); - for (@args) { + for my $fr (@args) { + my $_ = $fr; s/([\'\\])/\\$1/g; s/([^\0]*)/'$1'/ unless /^(?: -?[\d.]+ | \*[\w:]* )$/x; |