kde-extraapps/kget/conf/kget_sensitive.pl

18 lines
308 B
Perl
Raw Normal View History

#!/usr/bin/perl
while(<>)
{
($key) = ($_ =~ /([^=]*)=(.*)$/);
($value) = ($_ =~ /^[^=]*=(.*)$/);
if( $key eq "AutoPasteCaseInsensitive" and $value eq "false" )
{
print "# DELETE " . $key . "\n";
print "AutoPasteCaseSensitive=true\n";
next;
}
print $_;
}