Always use the full path for __FILE__

git-svn-id: svn://svn.code.sf.net/p/xchat/svn@1395 893a96be-7f27-4fdf-9d1e-6aeec9d3cce1

diff --git a/plugins/perl/Xchat.pm b/plugins/perl/Xchat.pm
index 2cd33e361a70d29ee33b326fe8eeb517a5749b70..9c7654fa5fb59710aebb3faea0d6e9f24bdb5e30 100644 (file)
--- a/plugins/perl/Xchat.pm
+++ b/plugins/perl/Xchat.pm
@@ -524,7 +524,8 @@ sub load {
                $scripts{$package}{loaded_at} = Time::HiRes::time();
                {
                        no strict; no warnings;
-                       $source =~ s/^/#line 1 "$file"\n\x7Bpackage $package;/;
+                       my $full_path = File::Spec->rel2abs( $file );
+                       $source =~ s/^/#line 1 "$full_path"\n\x7Bpackage $package;/;
 
                        # make sure we add the closing } even if the last line is a comment
                        if( $source =~ /^#.*\Z/m ) {