From 36ad59d8b773e8659a67b77e0c1ddcbffd60bdf6 Mon Sep 17 00:00:00 2001
From: Sveta Smirnova <sveta.smirnova@percona.com>
Date: Tue, 23 Jan 2024 14:04:08 +0300
Subject: [PATCH] Port improved pt-pmp

- Variable scope fixes
---
 bin/pt-eustack-resolver | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/bin/pt-eustack-resolver b/bin/pt-eustack-resolver
index 06b9b605..5987ed00 100755
--- a/bin/pt-eustack-resolver
+++ b/bin/pt-eustack-resolver
@@ -8,10 +8,10 @@ use strict;
 use Data::Dumper;
 
 my $mmap;
-my $FH;
 
 sub load_mapping {
    my ($pid)= @_;
+   my $FH;
 
    if ($pid =~ /^[0-9]+$/) {
       open $FH, '<', "/proc/$pid/maps"
@@ -43,8 +43,7 @@ sub get_image {
    die "Global memory map is undefined or not an array reference"
       unless defined $mmap and ref($mmap) eq 'ARRAY';
 
-   my $e;
-   for $e (@$mmap) {
+   for my $e (@$mmap) {
       next if $e->{E} <= $addr;
       last if $e->{S} > $addr;
       # Found, look up.