aboutsummaryrefslogtreecommitdiffstats
path: root/rpmtools.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-06-25 12:54:59 +0000
committerFrancois Pons <fpons@mandriva.com>2001-06-25 12:54:59 +0000
commit2348f40af7cc3e56709b3b63494238c4f86bdb41 (patch)
treef41f2258c7999a3b557e77fd3077ccec1b69406d /rpmtools.pm
parent6266a58c2292fcb90c07063c0a3b67d508d4eac1 (diff)
downloadrpmtools-2348f40af7cc3e56709b3b63494238c4f86bdb41.tar
rpmtools-2348f40af7cc3e56709b3b63494238c4f86bdb41.tar.gz
rpmtools-2348f40af7cc3e56709b3b63494238c4f86bdb41.tar.bz2
rpmtools-2348f40af7cc3e56709b3b63494238c4f86bdb41.tar.xz
rpmtools-2348f40af7cc3e56709b3b63494238c4f86bdb41.zip
updated to use @ separator char instead of : in provides file.
Diffstat (limited to 'rpmtools.pm')
-rw-r--r--rpmtools.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/rpmtools.pm b/rpmtools.pm
index 98b9895..df14eef 100644
--- a/rpmtools.pm
+++ b/rpmtools.pm
@@ -462,7 +462,7 @@ sub read_provides_files {
local $_;
while (<$FILE>) {
chomp;
- my ($k, @v) = split ':';
+ my ($k, @v) = split '@';
$k =~ /^\// and $params->{provides}{$k} ||= undef;
}
1;
@@ -512,7 +512,7 @@ sub read_provides {
local $_;
while (<$FILE>) {
chomp;
- my ($k, @v) = split ':';
+ my ($k, @v) = split '@';
$params->{provides}{$k} = @v > 0 ? \@v : undef;
}
}
@@ -523,7 +523,7 @@ sub write_provides {
my ($k, $v);
while (($k, $v) = each %{$params->{provides}}) {
- printf $FILE "%s\n", join ':', $k, @{$v || []};
+ printf $FILE "%s\n", join '@', $k, @{$v || []};
}
}