Minor formatting changes, moved to

diff --git a/maemian b/maemian
index b3e7ac0..867dccd 100755 (executable)
--- a/maemian
+++ b/maemian
@@ -1834,8 +1834,6 @@ sub remove_status_file {
     return 1;
 }
 
-# -------------------------------
-
 # get package name, version, and file name from the lab
 sub get_bin_info_from_lab {
     my ($base_dir) = @_;
@@ -1873,26 +1871,21 @@ sub get_src_info_from_lab {
     return ($file, source => $pkg, version => $ver);
 }
 
-# -------------------------------
-
 # read first line of a file
 sub read_file {
-    my $t;
+    my $first_line;
 
     open(T, '<', $_[0]) or return;
-    chop($t = <T>);
+    chop($first_line = <T>);
     close(T) or return;
 
-    return $t;
+    return $first_line;
 }
 
 # sort collection list by `order'
 sub by_collection_order {
     $collection_info{$a}->{'order'} <=> $collection_info{$b}->{'order'};
 }
-# }}}
-
-# {{{ Exit handler.
 
 sub END {
     # Prevent Lab::delete from affecting the exit code.
@@ -1908,10 +1901,6 @@ sub interrupted {
     $SIG{$_[0]} = 'DEFAULT';
     die "N: Interrupted.\n";
 }
-# }}}
 
-# Local Variables:
-# indent-tabs-mode: t
-# cperl-indent-level: 4
-# End:
-# vim: sw=4 ts=8 noet fdm=marker
+1;
+__END__