Use #perl6 channel for announcements

Author: AlexDaniel

bin/Squashable.p6

@@ -24,7 +24,7 @@ unit class Squashable does Whateverable;
 
 my $WIKI-PAGE-URL = ‘https://raw.githubusercontent.com/wiki/rakudo/rakudo/Monthly-Bug-Squash-Day.md’;
 my $TIMEZONE-RANGE = (-12..14) × 60×60; # in seconds (let's be inclusive?)
-my $CHANNEL = ‘#whateverable’; # TODO ‘#perl6’;
+my $CHANNEL = %*ENV<DEBUGGABLE> ?? ‘#whateverable’ !! ‘#perl6’;
 my $PATH = ‘data/squashable’.IO;
 
 my $next-event-lock = Lock.new;