| Subject: | [PATCH] wrong return precedence |
returns binds stronger than or, so the expressions after or are ignored.
See https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802
| Subject: | Curses-UI-0.9609-returnor.patch |
diff -bu Curses-UI-0.9609-AeRnsY/lib/Curses/UI/Calendar.pm~ Curses-UI-0.9609-AeRnsY/lib/Curses/UI/Calendar.pm
--- Curses-UI-0.9609-AeRnsY/lib/Curses/UI/Calendar.pm~ 2011-08-31 21:07:49.000000000 -0500
+++ Curses-UI-0.9609-AeRnsY/lib/Curses/UI/Calendar.pm 2013-07-24 16:00:34.428012092 -0500
@@ -563,7 +563,7 @@
sub is_julian ($$;)
{
my ($year, $month) = @_;
- return $year < 1752 or ($year == 1752 and $month <= 9);
+ return ($year < 1752 or ($year == 1752 and $month <= 9));
}
sub day_of_week($$$;)