diff options
| author | Zoffix Znet <cpan@zoffix.com> | 2016-01-04 17:03:32 -0500 |
|---|---|---|
| committer | Zoffix Znet <cpan@zoffix.com> | 2016-01-04 17:03:32 -0500 |
| commit | 5189f84cc6e1742ad66ff9547dac3ca97c5b7616 (patch) | |
| tree | 52aa79c45d044f64ef4b98fb1d5b248edf00aaa4 /lib | |
| parent | 67a3cb36258637434e8b5639c80c4a2b3a5b4b8a (diff) | |
Accomodate a Rakudobug RT#127142
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/IRC/Client.pm6 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6 index 98c57ed..333cf9e 100644 --- a/lib/IRC/Client.pm6 +++ b/lib/IRC/Client.pm6 @@ -98,7 +98,8 @@ method respond ( Str:D :$where is required, Str:D :$what is required is copy, Str:D :$who, - :$when where Dateish|Instant; + :$when where Any|Dateish|Instant; + # TODO: remove Any: https://rt.perl.org/Ticket/Display.html?id=127142 ) { $what = "$who, $what" if $who and $where ~~ /^<[#&]>/; my $method = $how.fc eq 'PRIVMSG'.fc ?? 'privmsg' |