File tree Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -112,7 +112,7 @@ sub is_domain {
112112#  Therefore, we can delete advertising.bad-actor.com from the hash.
113113sub  reduce_domains  {
114114my  $hashref  = shift  or  return ;
115- my  $redundant_domains_hashref ;
115+ my  %redundant_domains ;
116116
117117while  ( my  $domain  = each  %$hashref  ) {
118118# # Start with the root domain.
@@ -123,16 +123,16 @@ sub reduce_domains {
123123
124124if  ( defined  $hashref -> {$leaf } ) {
125125delete  $hashref -> {$domain };
126- $redundant_domains_hashref  -> {$domain } = $leaf ;
126+ $redundant_domains  {$domain } = $leaf ;
127127last ;
128128}
129129
130130$index  = rindex ($domain , ' .'  , $index  - 1);
131131}
132132}
133133wantarray 
134- ? return  %$redundant_domains_hashref  
135- : return  $redundant_domains_hashref ;
134+ ? return  %redundant_domains  
135+ : return  \ %redundant_domains ;
136136}
137137
138138sub  unique_domains  {
                                 You can’t perform that action at this time. 
               
                  
0 commit comments