From 98241e30bc052a5373e4aa6353d63c945d42f2ef Mon Sep 17 00:00:00 2001
From: Guillem Jover <gjover@sipwise.com>
Date: Tue, 29 Oct 2019 21:09:20 +0100
Subject: [PATCH] TT#69200 Set shebang for perl scripts

Unix systems default to using /bin/sh when trying to run an executable
script that has no shebang.

Change-Id: I18ef857fbc54fd72e6ad06b0f85c8c908fb0880d
(cherry picked from commit 85d59d562a4b4f8af3f756ffabfe5362220eeefa)
---
 Build.PL                                                     | 3 +++
 lib/NGCP/BulkProcessor/Projects/Export/Ama/Ccs/process.pl    | 2 ++
 lib/NGCP/BulkProcessor/Projects/Export/Ama/Ccs/test.pl       | 4 +++-
 lib/NGCP/BulkProcessor/Projects/Massive/Generator/process.pl | 2 ++
 lib/NGCP/BulkProcessor/Projects/Migration/UPCAT/process.pl   | 2 ++
 lib/NGCP/BulkProcessor/Projects/t/create_subscriber.t        | 2 ++
 lib/NGCP/BulkProcessor/Projects/t/test_connectors.pl         | 2 ++
 lib/NGCP/BulkProcessor/Projects/t/test_service.pl            | 2 ++
 8 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/Build.PL b/Build.PL
index d1a26d6..28a6580 100644
--- a/Build.PL
+++ b/Build.PL
@@ -1,7 +1,10 @@
+#!/usr/bin/perl
+
 use strict;
 use warnings;
 
 use Module::Build qw();
+
 my $builder = Module::Build->new(
     dist_name       => 'NGCP::BulkProcessor',
     dist_abstract     => 'Framework for parallel/distributed processing of record blocks',
diff --git a/lib/NGCP/BulkProcessor/Projects/Export/Ama/Ccs/process.pl b/lib/NGCP/BulkProcessor/Projects/Export/Ama/Ccs/process.pl
index 2d5b622..b147c78 100755
--- a/lib/NGCP/BulkProcessor/Projects/Export/Ama/Ccs/process.pl
+++ b/lib/NGCP/BulkProcessor/Projects/Export/Ama/Ccs/process.pl
@@ -1,3 +1,5 @@
+#!/usr/bin/perl
+
 use strict;
 
 ## no critic
diff --git a/lib/NGCP/BulkProcessor/Projects/Export/Ama/Ccs/test.pl b/lib/NGCP/BulkProcessor/Projects/Export/Ama/Ccs/test.pl
index 0777e43..0d05e36 100755
--- a/lib/NGCP/BulkProcessor/Projects/Export/Ama/Ccs/test.pl
+++ b/lib/NGCP/BulkProcessor/Projects/Export/Ama/Ccs/test.pl
@@ -1,3 +1,5 @@
+#!/usr/bin/perl
+
 use strict;
 
 ## no critic
@@ -142,4 +144,4 @@ $file->close(
 );
 
 #print $test->{structure}->to_string()."\n";
-#print $test->get_hex();
\ No newline at end of file
+#print $test->get_hex();
diff --git a/lib/NGCP/BulkProcessor/Projects/Massive/Generator/process.pl b/lib/NGCP/BulkProcessor/Projects/Massive/Generator/process.pl
index 6996aea..b85f983 100755
--- a/lib/NGCP/BulkProcessor/Projects/Massive/Generator/process.pl
+++ b/lib/NGCP/BulkProcessor/Projects/Massive/Generator/process.pl
@@ -1,3 +1,5 @@
+#!/usr/bin/perl
+
 use strict;
 
 ## no critic
diff --git a/lib/NGCP/BulkProcessor/Projects/Migration/UPCAT/process.pl b/lib/NGCP/BulkProcessor/Projects/Migration/UPCAT/process.pl
index 4e250c8..c9b4bc8 100755
--- a/lib/NGCP/BulkProcessor/Projects/Migration/UPCAT/process.pl
+++ b/lib/NGCP/BulkProcessor/Projects/Migration/UPCAT/process.pl
@@ -1,3 +1,5 @@
+#!/usr/bin/perl
+
 use strict;
 
 ## no critic
diff --git a/lib/NGCP/BulkProcessor/Projects/t/create_subscriber.t b/lib/NGCP/BulkProcessor/Projects/t/create_subscriber.t
index ede1fe2..cec6bed 100644
--- a/lib/NGCP/BulkProcessor/Projects/t/create_subscriber.t
+++ b/lib/NGCP/BulkProcessor/Projects/t/create_subscriber.t
@@ -1,3 +1,5 @@
+#!/usr/bin/perl
+
 use strict;
 use warnings;
 
diff --git a/lib/NGCP/BulkProcessor/Projects/t/test_connectors.pl b/lib/NGCP/BulkProcessor/Projects/t/test_connectors.pl
index 789d3ed..d0577fd 100755
--- a/lib/NGCP/BulkProcessor/Projects/t/test_connectors.pl
+++ b/lib/NGCP/BulkProcessor/Projects/t/test_connectors.pl
@@ -1,3 +1,5 @@
+#!/usr/bin/perl
+
 use strict;
 
 ## no critic
diff --git a/lib/NGCP/BulkProcessor/Projects/t/test_service.pl b/lib/NGCP/BulkProcessor/Projects/t/test_service.pl
index bfce66b..9bc58aa 100755
--- a/lib/NGCP/BulkProcessor/Projects/t/test_service.pl
+++ b/lib/NGCP/BulkProcessor/Projects/t/test_service.pl
@@ -1,3 +1,5 @@
+#!/usr/bin/perl
+
 use strict;
 
 ## no critic