change regex spacing for mr. fancy britches from the uptown

This commit is contained in:
worm 2023-11-13 17:51:54 -08:00
parent f7dd150728
commit 278924da0d

View file

@ -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