retab

lib/Trog/Routes/HTML.pm

@@ -289,7 +289,7 @@ sub index ($query,$render_cb, $content = '', $i_styles = []) {
         #XXX don't hardcode this
         $sopts{player_width} = 1280;
         $sopts{player_height} = 720;
-	$extra_tags .= "<meta property='og:video:type' content='$query->{primary_post}{content_type}' />\n";
+    $extra_tags .= "<meta property='og:video:type' content='$query->{primary_post}{content_type}' />\n";
     }
     my $social = HTML::SocialMeta->new(%sopts);
     $meta_tags = eval { $social->create($card_type) };
@@ -318,7 +318,7 @@ sub index ($query,$render_cb, $content = '', $i_styles = []) {
         stylesheets    => \@styles,
         show_madeby    => $Theme::show_madeby ? 1 : 0,
         embed          => $query->{embed} ? 1 : 0,
-	embed_video    => $query->{primary_post}{is_video},
+        embed_video    => $query->{primary_post}{is_video},
         default_tags   => $default_tags,
         meta_desc      => $meta_desc,
         meta_tags      => $meta_tags,

www/server.psgi

@@ -188,11 +188,11 @@ sub _serve ($path, $streaming=0, $last_fetch=0) {
             $writer->close;
         } if $streaming && $sz > $CHUNK_SIZE;
 
-	#Compress everything less than 1MB
+    #Compress everything less than 1MB
     push( @headers, "Content-Encoding" => "deflate" );
-	my $dfh;
-	IO::Compress::Deflate::deflate( $fh => \$dfh );
-	print $IO::Compress::Deflate::DeflateError if $IO::Compress::Deflate::DeflateError;
+    my $dfh;
+    IO::Compress::Deflate::deflate( $fh => \$dfh );
+    print $IO::Compress::Deflate::DeflateError if $IO::Compress::Deflate::DeflateError;
         push( @headers, "Content-Length" => length($dfh) );
         return [ $code, \@headers, [$dfh]];
     }
@@ -238,12 +238,12 @@ sub _render ($template, $vars, @headers) {
 
     my $body = $processor->render($template,$vars);
 
-	#Compress
+    #Compress
     push( @headers, "Content-Encoding" => "deflate" );
-	my $dfh;
+    my $dfh;
     $body = encode_utf8($body);
-	IO::Compress::Deflate::deflate( \$body => \$dfh );
-	print $IO::Compress::Deflate::DeflateError if $IO::Compress::Deflate::DeflateError;
+    IO::Compress::Deflate::deflate( \$body => \$dfh );
+    print $IO::Compress::Deflate::DeflateError if $IO::Compress::Deflate::DeflateError;
     push( @headers, "Content-Length" => length($dfh) );
     return [$vars->{code}, \@headers, [$dfh]];
 }