[doc] Select.pm: Scope Examples

By adding `my` where appropriate
Perl · Nov 24, 2023 · 2e59d4b · 2e59d4b
1 parent 7496960
commit 2e59d4b
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/dist/IO/lib/IO/Select.pm b/dist/IO/lib/IO/Select.pm
@@ -382,14 +382,14 @@ listening for more connections on a listen socket
     use IO::Select;
     use IO::Socket;
 
-    $lsn = IO::Socket::INET->new(Listen => 1, LocalPort => 8080);
-    $sel = IO::Select->new( $lsn );
+    my $lsn = IO::Socket::INET->new(Listen => 1, LocalPort => 8080);
+    my $sel = IO::Select->new( $lsn );
 
-    while(@ready = $sel->can_read) {
-        foreach $fh (@ready) {
+    while(my @ready = $sel->can_read) {
+        foreach my $fh (@ready) {
             if($fh == $lsn) {
                 # Create a new socket
-                $new = $lsn->accept;
+                my $new = $lsn->accept;
                 $sel->add($new);
             }
             else {