log.pl
changeset 6 75e15810eb67
parent 5 adfce511f604
child 7 bc20f10e81e1
--- a/log.pl	Wed Aug 02 07:49:51 2006 +0000
+++ b/log.pl	Wed Aug 02 08:06:25 2006 +0000
@@ -80,7 +80,11 @@
     } elsif ($opt_message =~ /^apt(?::(.*))?\@(\S+)/) {
 	open(I, $2) or die "Can't open $2: $!\n";
 	$opt_message = ($1 ? "APT: $1\n" : "APT: upgrade\n")
-	    . join "", map { /^(?:\d|Inst|Conf|Remv)/ ? "- $_" : () } <I>;
+	    . join "", map { 
+		if (/^\d/) { ($_) }
+		elsif ( /^(?:Inst|Conf|Remv)/ ) { ("- $_") }
+		else { () } 
+	    } <I>;
     }
 
     if ($opt_message =~ /\n/) {