summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-12-13 15:56:00 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-12-13 15:56:00 +0000
commit4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25 (patch)
treea12104a3a9468cc42b83634feb5e6a2e72003532 /perl-install/pkgs.pm
parentf298cec9f7d4bb4dc1972cc737007b6da86d4cb0 (diff)
downloaddrakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.gz
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.bz2
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.xz
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.zip
better english (writing style rather than spoken one)
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 572e55b10..d42dad558 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -94,7 +94,7 @@ sub isSupplCDMedium($) {
#- TODO BEFORE TODO
#- size and correction size functions for packages.
my $B = 1.20873;
-my $C = 4.98663; #- doesn't take hdlist's into account as getAvailableSpace will do it.
+my $C = 4.98663; #- does not take hdlist's into account as getAvailableSpace will do it.
sub correctSize { $B * $_[0] + $C }
sub invCorrectSize { ($_[0] - $C) / $B }
@@ -592,7 +592,7 @@ sub read_rpmsrate {
my @m3 = ((grep { !/^\d$/ } @m), @m2);
if (member('INSTALL', @m3)) {
member('NOCOPY', @m3) or push @{$packages->{needToCopy} ||= []}, $_;
- next; #- don't need to put INSTALL flag for a package.
+ next; #- do not need to put INSTALL flag for a package.
}
if (member('PRINTER', @m3)) {
push @{$packages->{needToCopy} ||= []}, $_;
@@ -600,7 +600,7 @@ sub read_rpmsrate {
if ($p->rate) {
my @m4 = $p->rflags;
if ((@m3 > 1 || @m4 > 1) && "@m3[1..$#m3]" ne "@m4[1..$#m4]") {
- log::l("can't handle complicate flags for packages appearing twice ($_)");
+ log::l("can not handle complicate flags for packages appearing twice ($_)");
$fatal_error++;
}
log::l("package $_ appearing twice with different rates ($rate != " . $p->rate . ")") if $rate != $p->rate;
@@ -626,7 +626,7 @@ sub readCompssUsers {
my ($file) = @_;
my $f = install_any::getFile($file)
- or do { log::l("can't find $file: $!"); return (undef, undef) };
+ or do { log::l("can not find $file: $!"); return (undef, undef) };
my ($compssUsers, $gtk_display_compssUsers) = eval join('', <$f>);
if ($@) {
log::l("ERROR: bad $file: $@");
@@ -1138,7 +1138,7 @@ sub install($$$;$$) {
$trans->set_script_fd(fileno $LOG);
log::l("rpm transactions start");
- my $fd; #- since we return the "fileno", perl doesn't know we're still using it, and so closes it, and :-(
+ my $fd; #- since we return the "fileno", perl does not know we're still using it, and so closes it, and :-(
my @probs = $trans->run($packages, force => 1, nosize => 1, callback_open => sub {
my ($data, $_type, $id) = @_;
my $pkg = defined $id && $data->{depslist}[$id];