| Subject: | [PATCH] return or precedence |
return or die will skip the die. see https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802
See attached patch
| Subject: | IO-Async-0.58-returnor.patch |
diff -bu ./lib/IO/Async/Resolver.pm~ ./lib/IO/Async/Resolver.pm
--- ./lib/IO/Async/Resolver.pm~ 2013-06-12 19:04:03.000000000 -0500
+++ ./lib/IO/Async/Resolver.pm 2013-07-19 09:48:41.213315028 -0500
@@ -516,23 +516,23 @@
# Now register the inbuilt methods
-register_resolver getpwnam => sub { return getpwnam( $_[0] ) or die "$!\n" };
-register_resolver getpwuid => sub { return getpwuid( $_[0] ) or die "$!\n" };
+register_resolver getpwnam => sub { return getpwnam( $_[0] ) || die "$!\n" };
+register_resolver getpwuid => sub { return getpwuid( $_[0] ) || die "$!\n" };
-register_resolver getgrnam => sub { return getgrnam( $_[0] ) or die "$!\n" };
-register_resolver getgrgid => sub { return getgrgid( $_[0] ) or die "$!\n" };
+register_resolver getgrnam => sub { return getgrnam( $_[0] ) || die "$!\n" };
+register_resolver getgrgid => sub { return getgrgid( $_[0] ) || die "$!\n" };
-register_resolver getservbyname => sub { return getservbyname( $_[0], $_[1] ) or die "$!\n" };
-register_resolver getservbyport => sub { return getservbyport( $_[0], $_[1] ) or die "$!\n" };
+register_resolver getservbyname => sub { return getservbyname( $_[0], $_[1] ) || die "$!\n" };
+register_resolver getservbyport => sub { return getservbyport( $_[0], $_[1] ) || die "$!\n" };
-register_resolver gethostbyname => sub { return gethostbyname( $_[0] ) or die "$!\n" };
-register_resolver gethostbyaddr => sub { return gethostbyaddr( $_[0], $_[1] ) or die "$!\n" };
+register_resolver gethostbyname => sub { return gethostbyname( $_[0] ) || die "$!\n" };
+register_resolver gethostbyaddr => sub { return gethostbyaddr( $_[0], $_[1] ) || die "$!\n" };
-register_resolver getnetbyname => sub { return getnetbyname( $_[0] ) or die "$!\n" };
-register_resolver getnetbyaddr => sub { return getnetbyaddr( $_[0], $_[1] ) or die "$!\n" };
+register_resolver getnetbyname => sub { return getnetbyname( $_[0] ) || die "$!\n" };
+register_resolver getnetbyaddr => sub { return getnetbyaddr( $_[0], $_[1] ) || die "$!\n" };
-register_resolver getprotobyname => sub { return getprotobyname( $_[0] ) or die "$!\n" };
-register_resolver getprotobynumber => sub { return getprotobynumber( $_[0] ) or die "$!\n" };
+register_resolver getprotobyname => sub { return getprotobyname( $_[0] ) || die "$!\n" };
+register_resolver getprotobynumber => sub { return getprotobynumber( $_[0] ) || die "$!\n" };
=pod