summaryrefslogtreecommitdiffstats
path: root/kdirstat/fix_move_to_trash_bin.pl
blob: 6a42af80d8bd1a06560f2fec5484f15873c0b43e (plain)
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
#
# Replace ~/KDesktop/Trash to %t
#
while( <> )
{
    s:~?\S*/\S*Trash\S*:%t: if ( /^\s*command\s*=\s*kfmclient\s+move/ );
    print $_;
}