File: bbdb-unlazy-lock.pl

package info (click to toggle)
xemacs21-packages 2009.02.17.dfsg.1-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 116,928 kB
  • ctags: 88,975
  • sloc: lisp: 1,232,060; ansic: 16,570; java: 13,514; xml: 6,477; sh: 4,611; makefile: 4,036; asm: 3,007; perl: 839; cpp: 500; ruby: 257; csh: 96; haskell: 93; awk: 49; python: 47
file content (19 lines) | stat: -rwxr-xr-x 470 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/local/bin/perl
#
# Author: Christopher Kline <ckline@media.mit.edu>
#
# bbdb-unlazy-lock.pl,v 1.1 1997/10/06 00:56:14 simmonmt Exp
#
# bbdb-unlazy-lock.pl,v
# 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;
}