Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 40 lines (34 sloc) 1.004 kB
#!/usr/bin/perl
############################################################
# install: the installer
#
# by eXerigumo Clanjor (哆啦比猫/兰威举), 2012.
# Licensed under GPLv2. ABSOLUTELY NO WARRANTY!
############################################################
# copy the wrapper
open FIN, "<src/brainsuck.pl" or die $!;
open FOUT, ">/usr/local/bin/brainsuck" or die $!;
while (<FIN>) { print FOUT }
close FIN;
close FOUT;
chmod 0755, "/usr/local/bin/brainsuck" or die $!;
# copy llbs, filtering out the debugging info
open FIN, "<src/llbs/llbs.pl" or die $!;
open FOUT, ">/usr/local/bin/llbs" or die $!;
while (<FIN>) {
s/^.*print STDERR.*[\n\r]*//g;
print FOUT;
}
close FIN;
close FOUT;
chmod 0755, "/usr/local/bin/llbs" or die $!;
# copy bs, filtering out the debugging info
open FIN, "<src/bs/bs.pl" or die $!;
open FOUT, ">/usr/local/bin/bs" or die $!;
while (<FIN>) {
s/^.*print STDERR.*[\n\r]*//g;
print FOUT;
}
close FIN;
close FOUT;
chmod 0755, "/usr/local/bin/bs" or die $!;
Jump to Line
Something went wrong with that request. Please try again.