equal
deleted
inserted
replaced
80 } elsif ($opt_message =~ /^apt(?::(.*))?\@(\S+)/) { |
80 } elsif ($opt_message =~ /^apt(?::(.*))?\@(\S+)/) { |
81 open(I, $2) or die "Can't open $2: $!\n"; |
81 open(I, $2) or die "Can't open $2: $!\n"; |
82 $opt_message = ($1 ? "APT: $1\n" : "APT: upgrade\n") |
82 $opt_message = ($1 ? "APT: $1\n" : "APT: upgrade\n") |
83 . join "", map { |
83 . join "", map { |
84 if (/^\d/) { ($_) } |
84 if (/^\d/) { ($_) } |
85 elsif ( /^(?:Inst|Conf|Remv)/ ) { ("- $_") } |
85 elsif ( /^(?:Inst|Conf|Remv|Purg)/ ) { ("- $_") } |
86 else { () } |
86 else { () } |
87 } <I>; |
87 } <I>; |
88 } |
88 } |
89 |
89 |
90 if ($opt_message =~ /\n/) { |
90 if ($opt_message =~ /\n/) { |