@@ -47,7 +47,7 @@ unit role Whateverable does IRC::Client::Plugin does Helpful;
47
47
48
48
has $ . timeout is rw = 10 ;
49
49
has $ ! stdin = slurp ‘ stdin’ ;
50
- has $ ! bad-releases = set ' 2016.01' , ' 2016.01.1' ;
50
+ has $ ! bad-releases = set ‘ 2016.01’ , ‘ 2016.01.1’ ;
51
51
52
52
multi method irc-to-me (Message $ msg where . text ~~
53
53
# ↓ Matches only one space on purpose (for whitespace-only stdin)
@@ -81,7 +81,7 @@ method get-wiki-link { WIKI ~ self.^name }
81
81
82
82
method beg-for-help ($ msg ) {
83
83
warn ‘ Please help me!’ ;
84
- $ msg . irc. send-cmd: ' PRIVMSG' , $ msg . channel, ‘ Hey folks. What's up with me?’ ,
84
+ $ msg . irc. send-cmd: ‘ PRIVMSG’ , $ msg . channel, ‘ Hey folks. What's up with me?’ ,
85
85
: server($ msg . server), : prefix(PARENTS. join (‘ , ’ ) ~ ‘ : ’ )
86
86
}
87
87
@@ -215,9 +215,9 @@ method get-commits($config) {
215
215
my $ num-commits = @ commits . elems ;
216
216
return “ Too many commits ($ num-commits ) in range, you're only allowed { COMMITS-LIMIT} ” if $ num-commits > COMMITS-LIMIT
217
217
} elsif $ config ~~ /:i ^ [ releases | v? 6 \.? c ] $ / {
218
- @ commits = self . get-tags: ' 2015-12-24'
218
+ @ commits = self . get-tags: ‘ 2015-12-24’
219
219
} elsif $ config ~~ /:i ^ all $ / {
220
- @ commits = self . get-tags: ' 2014-01-01'
220
+ @ commits = self . get-tags: ‘ 2014-01-01’
221
221
} elsif $ config ~~ /:i ^ compare \s $ < commit > =\S + $ / {
222
222
@ commits = $ < commit >
223
223
} else {
@@ -236,7 +236,7 @@ method get-tags($date) {
236
236
my % seen ;
237
237
for self . get-output(‘ git’ , ‘ log’ , ‘ --pretty="%d"’ ,
238
238
‘ --tags’ , ‘ --no-walk’ , “ --since=$ date” )<output >. lines -> $ tag {
239
- next unless $ tag ~~ /:i " tag:" \s * ((\d\d\d\d \. \d\d )[\. \d\d ? ]? ) /; # TODO use tag -l
239
+ next unless $ tag ~~ /:i ‘ tag:’ \s * ((\d\d\d\d \. \d\d )[\. \d\d ? ]? ) /; # TODO use tag -l
240
240
next if $ ! bad-releases {$0 }: exists ;
241
241
next if % seen {$0 [0 ]}++ ;
242
242
@ tags . push ($0 )
0 commit comments