Added #! line for export script so webservices-infra can call it usin…

…g ./extensions/BMO/bin/export_bmo_etl.pl

extensions/BMO/bin/export_bmo_etl.pl

@@ -1,3 +1,4 @@
+#!/usr/bin/env perl
 # This Source Code Form is subject to the terms of the Mozilla Public
 # License, v. 2.0. If a copy of the MPL was not distributed with this
 # file, You can obtain one at http://mozilla.org/MPL/2.0/.

extensions/BMO/t/bmo/bmo_etl.t

@@ -96,15 +96,15 @@ my ($attach_id) = keys %{$t->tx->res->json->{attachments}};
 ### Section 4: Export data to test files
 
 my @cmd
-  = ('perl', 'extensions/BMO/bin/export_bmo_etl.pl', '--verbose', '--test', '--snapshot-date', '2000-01-01');
+  = ('./extensions/BMO/bin/export_bmo_etl.pl', '--verbose', '--test', '--snapshot-date', '2000-01-01');
 
 my ($output, $error, $rv) = capture { system @cmd; };
 ok(!$rv, 'Data exported to test files without error');
 ok(glob(bz_locations()->{'datadir'} . '/2000-01-01-bugs-*.json'), 'Export test files exist');
 
 ### Section 5: Export data to BigQuery test instance
 
-@cmd = ('perl', 'extensions/BMO/bin/export_bmo_etl.pl', '--verbose', '--snapshot-date', '2000-01-01');
+@cmd = ('./extensions/BMO/bin/export_bmo_etl.pl', '--verbose', '--snapshot-date', '2000-01-01');
 
 ($output, $error, $rv) = capture { system @cmd; };
 ok(!$rv, 'Data exported to BigQuery test instance without error');
@@ -128,7 +128,7 @@ $t->post_ok(
 
 ### Section 7: Exporting again on the same day (with the same snapshot date) will cause the script to exit
 
-@cmd = ('perl', 'extensions/BMO/bin/export_bmo_etl.pl', '--verbose', '--snapshot-date', '2000-01-01');
+@cmd = ('./extensions/BMO/bin/export_bmo_etl.pl', '--verbose', '--snapshot-date', '2000-01-01');
 
 ($output, $error, $rv) = capture { system @cmd; };
 ok($rv, 'Duplicate data exported to BigQuery test instance should fail');