From d563f64ab8c6dd6e6f3261f61a2dca7a5b934b6d Mon Sep 17 00:00:00 2001
From: Berke Viktor <bviktor@hexchat.org>
Date: Fri, 13 Jul 2012 20:09:36 +0200
Subject: Update XChat to r1512

---
 plugins/perl/generate_header | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'plugins/perl/generate_header')

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};
-- 
cgit 1.4.1