Permalink
Fetching contributors…
Cannot retrieve contributors at this time
7 lines (5 sloc) 99 Bytes
#!/usr/bin/perl -w -i -p
s/^(\s*)open(\s)/$1using$2/;
next if /"/;
s/\(\*/\/\*/g;
s/\*\)/\*\//g;