Merge pull request #18 from derekschrock/opthttps

Accept http and https URLs for TinyURL
p5-shorten · Jul 6, 2022 · f42a982 · f42a982
2 parents 542ccda + 292b017
commit f42a982
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/WWW/Shorten/TinyURL.pm b/lib/WWW/Shorten/TinyURL.pm
@@ -41,7 +41,7 @@ sub makeashorterlink {
         }
         return undef;
     }
-    if ($resp->content =~ m!(\Qhttps://tinyurl.com/\E\w+)!x) {
+    if ($resp->content =~ m!(https?\Q://tinyurl.com/\E\w+)!x) {
         return $1;
     }
     return;
@@ -52,7 +52,7 @@ sub makealongerlink {
         or Carp::croak('No TinyURL key / URL passed to makealongerlink');
     $_error_message = '';
     $url = "https://tinyurl.com/$url"
-        unless $url =~ m!^https://!i;
+        unless $url =~ m!^https?://!i;
 
     # terrible, bad!  skip live testing for now.
     if ( $ENV{'WWW-SHORTEN-TESTING'} ) {