mirror of
https://bitbucket.org/smil3y/kde-extraapps.git
synced 2025-02-27 04:13:05 +00:00
18 lines
308 B
Perl
18 lines
308 B
Perl
![]() |
#!/usr/bin/perl
|
||
|
|
||
|
|
||
|
while(<>)
|
||
|
{
|
||
|
($key) = ($_ =~ /([^=]*)=(.*)$/);
|
||
|
($value) = ($_ =~ /^[^=]*=(.*)$/);
|
||
|
|
||
|
if( $key eq "AutoPasteCaseInsensitive" and $value eq "false" )
|
||
|
{
|
||
|
print "# DELETE " . $key . "\n";
|
||
|
print "AutoPasteCaseSensitive=true\n";
|
||
|
next;
|
||
|
}
|
||
|
|
||
|
print $_;
|
||
|
}
|