blob: 30dec9638f701d9d2e2ea992c1345791a7675479 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/usr/bin/perl
#
# Author: Christopher Kline <ckline@media.mit.edu>
#
# Revision 1.1 1997/10/06 00:56:14 simmonmt
# Initial revision
#
#
# Lazy-lock-mode has (had) a nasty habit of munging .bbdb files if you visited them
# with it on. This script removes the lazy-lock mung
#
while( <STDIN> ) {
s/#\(("[^"]*")( \d+ \d+ (nil)*(\(lazy-lock t\))*)*\)/$1/gi;
print;
}
|
