diff options
Diffstat (limited to 'MDK')
| -rw-r--r-- | MDK/Common.pm.pl | 2 | ||||
| -rw-r--r-- | MDK/Common/System.pm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/MDK/Common.pm.pl b/MDK/Common.pm.pl index 146e09d..5a66f95 100644 --- a/MDK/Common.pm.pl +++ b/MDK/Common.pm.pl @@ -71,7 +71,7 @@ use vars qw(@ISA @EXPORT $VERSION); #); # perl_checker: RE-EXPORT-ALL @EXPORT = map { @$_ } map { values %{'MDK::Common::' . $_ . 'EXPORT_TAGS'} } grep { /::$/ } keys %MDK::Common::; -$VERSION = "1.1.6"; +$VERSION = "1.1.7"; 1; EOF diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm index de9e3d4..40c1fc8 100644 --- a/MDK/Common/System.pm +++ b/MDK/Common/System.pm @@ -360,7 +360,7 @@ sub read_gnomekderc { my %h; foreach (MDK::Common::File::cat_($file), "[NOCATEGORY]\n") { if (/^\s*\[\Q$category\E\]/i ... /^\[/) { - $h{$1} = $2 if /^\s*(\w*?)=(.*)/; + $h{$1} = $2 if /^\s*([^=]*?)=(.*)/; } } %h; @@ -378,7 +378,7 @@ sub update_gnomekderc { chomp $s; $s .= "\n"; $s .= "$_->[0]=$_->[1]\n" foreach values %subst; %subst = (); - } elsif (/^\s*(\w*?)=/) { + } elsif (/^\s*([^=]*?)=/) { if (my $e = delete $subst{lc($1)}) { $_ = "$1=$e->[1]\n"; } |