Whitespace fixes

- Remove trailing whitespaces
- Replace few tabs with spaces

1 files changed, 16 insertions, 16 deletions

diff --git a/english/lts/security/parse-dla.pl b/english/lts/security/parse-dla.pl
index 92aa58acdf1..ac59cbcf2da 100755
--- a/english/lts/security/parse-dla.pl
+++ b/english/lts/security/parse-dla.pl
@@ -3,7 +3,7 @@
 # parse-dla.pl
 #
 # Copyright © 2016 Frank Lichtenheld
-# Based on parse-advisories.pl: 
+# Based on parse-advisories.pl:
 # Copyright (C) 2001 Josip Rodin
 # Copyright (c) 2002,3 Josip Rodin, Martin Schulze
 # Licensed under the GNU General Public License version 2.
@@ -26,7 +26,7 @@ $adv || die "you must specify a parameter (original advisory file)!\n";
 die "that advisory file either ain't there or doesn't have anything in it!\n" unless -s $adv;
 
 # i'm lame, so shoot me
-my %longmoy = (	en => [ 
+my %longmoy = ( en => [
   'January', 'February', 'March', 'April', 'May', 'June',
   'July', 'August', 'September', 'October', 'November', 'December' ]
 );
@@ -54,17 +54,17 @@ foreach my $l (<$fh>) {
       my $month = $2; my $day = $1; $year = $3;
       my $i = 0;
       while ($i < 12) {
-	  if ($month eq $longmoy{en}[$i]) {
-	      $month = $i + 1;
-	      $date = "$year-$month-$day";
-	      $i = 12;
-	  }
-	  elsif ($month eq $shortmoy{en}[$i]) {
-	      $month = $i + 1; 
-	      $date = "$year-$month-$day";
-	      $i = 12;
-	  }
-	  $i++
+      if ($month eq $longmoy{en}[$i]) {
+          $month = $i + 1;
+          $date = "$year-$month-$day";
+          $i = 12;
+      }
+      elsif ($month eq $shortmoy{en}[$i]) {
+          $month = $i + 1;
+          $date = "$year-$month-$day";
+          $i = 12;
+      }
+      $i++
       }
   }
   if ($l =~ /Package(?:s)*\s*: (.+)\s*/) {
@@ -75,7 +75,7 @@ foreach my $l (<$fh>) {
   }
   if ($l =~ /^(Debian Bug\(?s?\)?)\s*: (.+)/i) {
       for my $id (split (/,? /, $2)) {
-	  push @dbids, "Bug#".$id if ($id ne "none");
+      push @dbids, "Bug#".$id if ($id ne "none");
       }
   }
   if ($l =~ /^(CVE (names?|id\(?s?\)?|references?)?|CERT advisor(y|ies))\s*: (.+)/i) {
@@ -89,7 +89,7 @@ foreach my $l (<$fh>) {
   }
   if ($l =~ /^Bugtraq Ids?\s*: (.+)/i) {
       for my $id (split (/,? /, $1)) {
-	  push @dbids, "BID".$id;
+      push @dbids, "BID".$id;
       }
   }
   last if ($l =~ /Learn more about the/i);
@@ -138,7 +138,7 @@ $moreinfo =~ s/\n\n/<\/p>\n\n/sg;
 $moreinfo =~ s|\n<p>((CAN\|CVE)-\d+-\d+[^\n]*)</p>\n|\n<li>$1\n|g;
 $moreinfo =~ s|\n<p>((CAN\|CVE)-\d+-\d+[^\n]*)\n|\n<li>$1\n<p>\n|g;
 $moreinfo =~ s|((CAN\|CVE)-\d+-\d+)|<a href="https://security-tracker.debian.org/tracker/$1">$1</a>|g;
-$moreinfo =~ s|</p>\n\n<p>\n<p>(\w* \w* stable)|</p></li>\n\n</ul>\n\n<p>$1|; 
+$moreinfo =~ s|</p>\n\n<p>\n<p>(\w* \w* stable)|</p></li>\n\n</ul>\n\n<p>$1|;
 $moreinfo =~ s|<p>(\s+)|$1<p>|g;
 $moreinfo =~ s|<p><p>|<p>|g;
 $moreinfo =~ s/\n<p>$//;