mirror of
https://github.com/Project-OSS-Revival/alien.git
synced 2026-04-24 14:00:17 +00:00
* Changed all invocations of programs to be in posix-complient form. Ie,
no options after args, so people who set POSIX_ME_HARDER can still use
alien.
* Bahave better if there is no /etc/mailname.
This commit is contained in:
@@ -545,10 +545,12 @@ sub email {
|
||||
return $ENV{EMAIL} if exists $ENV{EMAIL};
|
||||
|
||||
my $login = getlogin || (getpwuid($<))[0] || $ENV{USER};
|
||||
open (MAILNAME,"</etc/mailname");
|
||||
my $mailname=<MAILNAME>;
|
||||
chomp $mailname;
|
||||
close MAILNAME;
|
||||
myt $mailname='';
|
||||
if (open (MAILNAME,"</etc/mailname")) {
|
||||
$mailname=<MAILNAME>;
|
||||
chomp $mailname;
|
||||
close MAILNAME;
|
||||
}
|
||||
if (!$mailname) {
|
||||
$mailname=`hostname -f`;
|
||||
chomp $mailname;
|
||||
|
||||
@@ -82,7 +82,7 @@ sub scan {
|
||||
|
||||
# Use --queryformat to pull out all the fields we need.
|
||||
foreach my $field (keys(%fieldtrans)) {
|
||||
$_=`LANG=C rpm -qp $file --queryformat \%{$field}`;
|
||||
$_=`LANG=C rpm -qp --queryformat \%{$field} $file`;
|
||||
$field=$fieldtrans{$field};
|
||||
$_='' if $_ eq '(none)';
|
||||
$this->$field($_);
|
||||
|
||||
Reference in New Issue
Block a user