From ce31209d7230201c69f8f234032a774fbbbc43cd Mon Sep 17 00:00:00 2001 From: Jeremiah Foster Date: Tue, 2 Jun 2009 18:12:09 +0300 Subject: [PATCH] Minor formatting changes, moved to --- maemian | 21 +++++---------------- 1 file changed, 5 insertions(+), 16 deletions(-) diff --git a/maemian b/maemian index b3e7ac0..867dccd 100755 --- 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 = ); + chop($first_line = ); 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__ -- 1.7.9.5