[Bps-public-commit] SD - A distributed issue tracker branch, master, updated. 89eb9f94545cd492cf596b0ec156d74f3144385d

[sartak at bestpractical.com]

The branch, master has been updated
       via  89eb9f94545cd492cf596b0ec156d74f3144385d (commit)
       via  2e50f235e6f3914ca3159046887e2fbdec05f62a (commit)
      from  5defd8e1dbed0a95900fd15d9b7d65176b40b1e4 (commit)

Summary of changes:
 lib/App/SD/Test.pm                        |    2 +-
 t/scripts/settings-editor.pl              |    2 +-
 t/scripts/ticket-comment-update-editor.pl |    2 +-
 t/scripts/ticket-create-editor.pl         |    2 +-
 t/scripts/ticket-update-editor.pl         |    2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

- Log -----------------------------------------------------------------
commit 2e50f235e6f3914ca3159046887e2fbdec05f62a
Author: Shawn M Moore <sartak at gmail.com>
Date:   Thu Feb 5 13:12:25 2009 -0500

    /usr/bin/perl is wronnggg

diff --git a/t/scripts/settings-editor.pl b/t/scripts/settings-editor.pl
index 45f20d1..c640dd7 100755
--- a/t/scripts/settings-editor.pl
+++ b/t/scripts/settings-editor.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -i
+#!perl -i
 use strict;
 use warnings;
 use lib 't/scripts';
diff --git a/t/scripts/ticket-comment-update-editor.pl b/t/scripts/ticket-comment-update-editor.pl
index a670d9a..041c89d 100755
--- a/t/scripts/ticket-comment-update-editor.pl
+++ b/t/scripts/ticket-comment-update-editor.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -i
+#!perl -i
 use strict;
 use warnings;
 
diff --git a/t/scripts/ticket-create-editor.pl b/t/scripts/ticket-create-editor.pl
index 340b86b..2c9f6bf 100755
--- a/t/scripts/ticket-create-editor.pl
+++ b/t/scripts/ticket-create-editor.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -i
+#!perl -i
 use strict;
 use warnings;
 use lib 't/scripts';
diff --git a/t/scripts/ticket-update-editor.pl b/t/scripts/ticket-update-editor.pl
index 136de3e..ee3df1e 100755
--- a/t/scripts/ticket-update-editor.pl
+++ b/t/scripts/ticket-update-editor.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -i
+#!perl -i
 use strict;
 use warnings;
 use lib 't/scripts';

commit 89eb9f94545cd492cf596b0ec156d74f3144385d
Author: Shawn M Moore <sartak at gmail.com>
Date:   Thu Feb 5 13:13:34 2009 -0500

    Use $^X in $EDITOR to avoid perl mismatches

diff --git a/lib/App/SD/Test.pm b/lib/App/SD/Test.pm
index dab60df..7b3ad42 100644
--- a/lib/App/SD/Test.pm
+++ b/lib/App/SD/Test.pm
@@ -238,7 +238,7 @@ sub set_editor {
 
     delete $ENV{'VISUAL'};       # Proc::InvokeEditor checks this first
     $ENV{'EDITOR'} = File::Spec->catfile(getcwd(), 't', 'scripts', $script);
-    diag 'export EDITOR=' . $ENV{'EDITOR'} . "\n";
+    diag "export EDITOR=$^X " . $ENV{'EDITOR'} . "\n";
 }
 
 =head2 write_to_file FILENAME DATA

-----------------------------------------------------------------------