diff options
| author | Berke Viktor <bviktor@hexchat.org> | 2012-07-13 20:09:36 +0200 |
|---|---|---|
| committer | Berke Viktor <bviktor@hexchat.org> | 2012-07-13 20:09:36 +0200 |
| commit | d563f64ab8c6dd6e6f3261f61a2dca7a5b934b6d (patch) | |
| tree | ed9c8bdbe4d87dbca6cc668caa15f56db7b24686 /plugins/perl/generate_header | |
| parent | 683a60abff456e762b3317b9d5d82b346f7d3cd2 (diff) | |
Update XChat to r1512
Diffstat (limited to 'plugins/perl/generate_header')
| -rw-r--r-- | plugins/perl/generate_header | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/plugins/perl/generate_header b/plugins/perl/generate_header index d6c8a65f..37e7d323 100644 --- a/plugins/perl/generate_header +++ b/plugins/perl/generate_header @@ -40,6 +40,13 @@ for my $files ( 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 ) { print $header qq["{\\n"\n]; print $header qq{"#line 1 \\"$input\\"\\n"\n}; |