SoniEx2/c.sexchat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Update XChat to r1512

Browse source
This commit is contained in:
Berke Viktor 2012-07-13 20:09:36 +02:00
parent 683a60abff
commit d563f64ab8
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
plugins/perl/generate_header
View file

@ -40,6 +40,13 @@ for my $files (
open my $header, ">", $output or die "Couldn't open '$output': $!"; open my $header, ">", $output or die "Couldn't open '$output': $!";
print $header qq["BEGIN {\\n"\n];
for my $input ( @inputs ) {
(my $trimmed = $input) =~ s{^lib/}{};
print $header qq["\$INC{'$trimmed'} = 'Compiled into the plugin.';\\n"\n];
}
print $header qq["}\\n"\n];
for my $input ( @inputs ) { for my $input ( @inputs ) {
print $header qq["{\\n"\n]; print $header qq["{\\n"\n];
print $header qq{"#line 1 \\"$input\\"\\n"\n}; print $header qq{"#line 1 \\"$input\\"\\n"\n};