diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-01-04 11:59:18 +0000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2021-01-04 21:46:42 +0000 |
| commit | 21c36f15f89a5f339bd2c3afa068369990af2f97 (patch) | |
| tree | 21707c838d4aa8fb754cff3c2efb5235bcc500ad /dist/IO | |
| parent | a8924acdbbc06b79d6ff8a9edfbe28c271e8bc88 (diff) | |
| download | perl-21c36f15f89a5f339bd2c3afa068369990af2f97.tar.gz | |
Update IO::Socket unit test for $IO::Socket::errstr
Diffstat (limited to 'dist/IO')
| -rw-r--r-- | dist/IO/t/io_sock.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/IO/t/io_sock.t b/dist/IO/t/io_sock.t index 3bc5118cbc..c7b6bb6385 100644 --- a/dist/IO/t/io_sock.t +++ b/dist/IO/t/io_sock.t @@ -129,7 +129,7 @@ if(my $pid = fork()) { $sock->close; } else { - print "# $@\n"; + print "# $IO::Socket::errstr\n"; print "not ok 6\n"; print "not ok 7\n"; print "not ok 8\n"; @@ -146,7 +146,7 @@ if(my $pid = fork()) { $sock->close; } else { - print "# $@\n"; + print "# $IO::Socket::errstr\n"; print "not ok 10\n"; } |