equal
deleted
inserted
replaced
78 } elsif ($opt_message eq "-") { |
78 } elsif ($opt_message eq "-") { |
79 $opt_message = join "", <STDIN>; |
79 $opt_message = join "", <STDIN>; |
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 { /^(?:\d|Inst|Conf|Remv)/ ? "- $_" : () } <I>; |
83 . join "", map { |
|
84 if (/^\d/) { ($_) } |
|
85 elsif ( /^(?:Inst|Conf|Remv)/ ) { ("- $_") } |
|
86 else { () } |
|
87 } <I>; |
84 } |
88 } |
85 |
89 |
86 if ($opt_message =~ /\n/) { |
90 if ($opt_message =~ /\n/) { |
87 $opt_message =~ s/\n/\n /g; |
91 $opt_message =~ s/\n/\n /g; |
88 } |
92 } |