diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-09-06 13:52:34 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-09-06 13:52:34 +0000 |
| commit | e93410db0c1326ac5895ba2105904698c7ee163e (patch) | |
| tree | dd52101cd9b155a01d1e86b226d060a59f5c8c0a | |
| parent | 9ed9ed46df24d5852327064d04da685eccfa4126 (diff) | |
| download | perl-MDK-Common-e93410db0c1326ac5895ba2105904698c7ee163e.tar perl-MDK-Common-e93410db0c1326ac5895ba2105904698c7ee163e.tar.gz perl-MDK-Common-e93410db0c1326ac5895ba2105904698c7ee163e.tar.bz2 perl-MDK-Common-e93410db0c1326ac5895ba2105904698c7ee163e.tar.xz perl-MDK-Common-e93410db0c1326ac5895ba2105904698c7ee163e.zip | |
MDK::Common::System::update_gnomekderc: fix adding lines to the last section when it doesn't end with a cr
| -rw-r--r-- | MDK/Common/DataStructure.pm | 2 | ||||
| -rw-r--r-- | MDK/Common/System.pm | 1 | ||||
| -rw-r--r-- | perl-MDK-Common.spec | 5 |
3 files changed, 6 insertions, 2 deletions
diff --git a/MDK/Common/DataStructure.pm b/MDK/Common/DataStructure.pm index 8f44a2e..3da59fe 100644 --- a/MDK/Common/DataStructure.pm +++ b/MDK/Common/DataStructure.pm @@ -89,7 +89,7 @@ C<next_val_in_array(3, [1, 2, 3])> gives C<1> =item group_by2(LIST) interprets the list as an ordered hash, returns a list of [key,value]: -C<list2kv(1 => 2, 3 => 4, 5 => 6)> gives C<[1,2], [3,4], [5,6]> +C<group_by2(1 => 2, 3 => 4, 5 => 6)> gives C<[1,2], [3,4], [5,6]> =item list2kv(LIST) diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm index dcf24a7..c41485b 100644 --- a/MDK/Common/System.pm +++ b/MDK/Common/System.pm @@ -345,6 +345,7 @@ sub update_gnomekderc { foreach (MDK::Common::File::cat_($file), "[NOCATEGORY]\n") { if (my $i = /^\s*\[$category\]/i ... /^\[/) { if ($i =~ /E/) { #- for last line of category + chomp $s; $s .= "\n"; $s .= "$_->[0]=$_->[1]\n" foreach values %subst; %subst = (); } elsif (/^\s*(\w*?)=/) { diff --git a/perl-MDK-Common.spec b/perl-MDK-Common.spec index 39fe8f7..bfc1c40 100644 --- a/perl-MDK-Common.spec +++ b/perl-MDK-Common.spec @@ -2,7 +2,7 @@ # do not change the version here, change in MDK/Common.pm.pl %define version THEVERSION -%define release 15mdk +%define release 16mdk Summary: Various simple functions Name: perl-MDK-Common @@ -50,6 +50,9 @@ rm -rf $RPM_BUILD_ROOT # MODIFY IN THE CVS: cvs.mandrakesoft.com:/cooker soft/perl-MDK-Common %changelog +* Fri Sep 6 2002 Pixel <pixel@mandrakesoft.com> 1.0.3-16mdk +- MDK::Common::System::update_gnomekderc: fix adding lines to the last section when it doesn't end with a cr + * Fri Sep 6 2002 Pixel <pixel@mandrakesoft.com> 1.0.3-15mdk - MDK::Common::System::update_gnomekderc: fix adding section when the file doesn't end with a cr |