maintenance: Whitespace errors

bin/autotest.pl

@@ -70,8 +70,8 @@ sub run_tests {
     printf "===== STDOUT =====\n";
     foreach (@_) {
         my $name = File::Spec->splitpath( $_ );
-        say "$name:"; 
-        $cmd = sprintf 'perl %s 2>%s', 
+        say "$name:";
+        $cmd = sprintf 'perl %s 2>%s',
                         File::Spec->catdir( $TESTS, $name ),
                         File::Spec->catdir( $DUMPS, $name . '.err' );
         system($cmd);

bin/mksheet.pl

@@ -64,7 +64,7 @@ TAG: foreach my $tag (@tags) {
     print "  $tag...";
 
     my $t = $s->grep($tag);
-    
+
     my @subsets_to_go = guess_subsets($tag)
         or warn "no subsets available for tag $tag\n";
 

bin/timestamp.pl

@@ -24,8 +24,8 @@ use POSIX qw|modf|;
 sub stamp {
     my $time = shift;
     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = (localtime($time));
-    return sprintf "%04i-%02i-%02i %02i:%02i:%02i.%05i", 
-                    $year + 1900,   $mon + 1,   $mday,  
+    return sprintf "%04i-%02i-%02i %02i:%02i:%02i.%05i",
+                    $year + 1900,   $mon + 1,   $mday,
                     $hour,          $min,       $sec,     ( modf $time)[0] * 100000;
 }
 

cgi-bin/htlog/htlog.cgi

@@ -25,8 +25,8 @@ sub stamp {
     my $unixtime = ($_[0] ? $_[0] : time );
     my ($sec, $min, $hour, $mday, $mon, $year) = localtime $unixtime;
     return sprintf (
-        "%04i-%02i-%02i %02i:%02i:%02i", 
-        $year + 1900,   $mon + 1,   $mday,  
+        "%04i-%02i-%02i %02i:%02i:%02i",
+        $year + 1900,   $mon + 1,   $mday,
         $hour,          $min,       $sec
     );
 }

lib/helper.pm

@@ -19,7 +19,7 @@ package helper;
 use Carp;
 use YAML;
 use Data::Dumper;
-    
+
 ###
 # `find . -type f` plus a Windows version. And a front-end
 our $PLATFORM;

lib/htsheet.pm

@@ -85,7 +85,7 @@ sub parse_message {
     #TODO: Make them global
     my $DIV_FIELD =";";
     my $DIV_VALUE ="=";
-    
+
     # split to fields
     my @fields  = split $DIV_FIELD, $message;
     %$data      = map {
@@ -163,7 +163,7 @@ sub get_unique_values_of {
     my %values;
     $values{$_->{$column}}++
         foreach @{ $self->{data}->{rows} };
-   
+
     return [ keys %values ];
 }