Select Code to Download

:command FixCommas perl $s=join(qq{\n},$curbuf->Get(0 .. $curbuf->Coun
+t()));$s =~ s#^((?:[^/\n]|/(?!/))*),((?:\s*|//.*$|/\*(?:[^*]|\*(?!/))
+*\*/)*\s*[}\]])#$1$2#mg; $curbuf->Set(0,0,split(qq{\n},$s));