Source Format Enforcement (#763)

[thirdparty/squid.git] / contrib / url-normalizer.pl

diff --git a/contrib/url-normalizer.pl b/contrib/url-normalizer.pl
index 5f2c27dd590a9f5c1a4899b0eddc3e5818fb6531..b0f5c0cde09cf4c64a2a80848c4a4bf3cf6faa9a 100755 (executable)
--- a/contrib/url-normalizer.pl
+++ b/contrib/url-normalizer.pl
@@ -1,6 +1,6 @@
 #!/usr/local/bin/perl -Tw
 #
-# * Copyright (C) 1996-2016 The Squid Software Foundation and contributors
+# * Copyright (C) 1996-2021 The Squid Software Foundation and contributors
 # *
 # * Squid software is distributed under GPLv2+ license and includes
 # * contributions from numerous individuals and organizations.
@@ -33,8 +33,8 @@ while (<>) {
     $epath =~ s/%7e/~/ig;               # unescape ~
     $epath =~ s/(%[\da-f]{2})/\U$1/ig;  # capitalize escape digits
     if ($url->scheme =~ /^(http|ftp)$/) {
-       $epath =~ s:/\./:/:g;           # safe?
-       $epath =~ s://:/:g;             # safe?
+        $epath =~ s:/\./:/:g;           # safe?
+        $epath =~ s://:/:g;             # safe?
     }
     $url->epath($epath);
 
@@ -49,10 +49,10 @@ while (<>) {
 
 BEGIN {
     unless (URI::URL::implementor('cache_object')) {
-       package cache_object;
-       @cache_object::ISA = (URI::URL::implementor());
-       URI::URL::implementor('cache_object', 'cache_object');
+        package cache_object;
+        @cache_object::ISA = (URI::URL::implementor());
+        URI::URL::implementor('cache_object', 'cache_object');
 
-       sub default_port { 3128 }
+        sub default_port { 3128 }
     }
 }