diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-06-25 12:54:59 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-06-25 12:54:59 +0000 |
| commit | 2348f40af7cc3e56709b3b63494238c4f86bdb41 (patch) | |
| tree | f41f2258c7999a3b557e77fd3077ccec1b69406d | |
| parent | 6266a58c2292fcb90c07063c0a3b67d508d4eac1 (diff) | |
| download | rpmtools-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.
| -rw-r--r-- | rpmtools.pm | 6 |
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 || []}; } } |