change regex spacing for mr. fancy britches from the uptown
This commit is contained in:
parent
f7dd150728
commit
278924da0d
|
@ -1,7 +1,7 @@
|
||||||
my $starts-with-protocol = rx:i/ ^https?\:\/\//;
|
my $starts-with-protocol = rx:i/ ^https? '://'/;
|
||||||
|
|
||||||
sub fix-protocol ($url) is export {
|
sub fix-protocol ($url) is export {
|
||||||
return "https://" ~ $url unless $url ~~ $starts-with-protocol;
|
return "http://" ~ $url unless $url ~~ $starts-with-protocol;
|
||||||
}
|
}
|
||||||
|
|
||||||
# I use a dedicated method to remove all debugging messages prior to commit
|
# I use a dedicated method to remove all debugging messages prior to commit
|
||||||
|
|
Loading…
Reference in a new issue