Reduced noise from tld.js regular expressions generation.

1 files changed, 3 insertions, 4 deletions

diff --git a/TLD/generate.pl b/TLD/generate.pl
index e37ffd5..8f6709a 100644
--- a/TLD/generate.pl
+++ b/TLD/generate.pl
@@ -16,7 +16,7 @@ sub generate {
     s/\s+utf.*//;
     s/[\r\n]//g;
     if(/^!/) {
-      s/^!//; 
+      s/^!//;
       push(@ex, lc($_));
     } elsif (!/^(\/\/|[ \n\r]|$)/) {
       s/\*\\\./[^\\.]+\\./;
@@ -24,7 +24,7 @@ sub generate {
     }
   }
   close(DAT);
-  
+
   #$o = Regexp::Optimizer->new;
   #$o = Regexp::List->new;
   $o = Regexp::Assemble->new;
@@ -38,14 +38,13 @@ sub generate {
   s/\(\?-xism:(.*)\)/$1/;
   $ex = $_;
   @ex = NULL;
-  
+
   open(SRC, $src) || die("Cannot open $src");
   open(DST, ">$dst") || die("Cannot open $dst");
   while(<SRC>) {
     s/(_tldRx:\s*\/\(.*?\)).*?(?=\$\/)/$1$rx/s;
     s/(_tldEx:\s*\/\(.*?\)).*?(?=\$\/)/$1$ex/s;
     print DST;
-    print;
   }
   close(SRC);
   close(DST);