From b87c7b31d5cdcc43841312d5414548d7c4fdfb10 Mon Sep 17 00:00:00 2001
From: LemonBoy <thatlemon@gmail.com>
Date: Tue, 12 Jul 2016 13:32:08 +0200
Subject: [PATCH] Make sure the path given to perl_script_load_file is a file.

---
 src/perl/perl-core.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c
index 69d07394..f47b3bc5 100644
--- a/src/perl/perl-core.c
+++ b/src/perl/perl-core.c
@@ -293,6 +293,9 @@ PERL_SCRIPT_REC *perl_script_load_file(const char *path)
 
         g_return_val_if_fail(path != NULL, NULL);
 
+	if (g_file_test(path, G_FILE_TEST_IS_REGULAR) == FALSE)
+		return NULL;
+
         name = script_file_get_name(path);
         return script_load(name, path, NULL);
 }