[Bps-public-commit] r15575 - in sd/branches/sd-trunk: lib/App/SD

[jesse at bestpractical.com]

Author: jesse
Date: Wed Aug 27 21:24:09 2008
New Revision: 15575

Modified:
   sd/branches/sd-trunk/   (props changed)
   sd/branches/sd-trunk/lib/App/SD/Test.pm

Log:
 r44632 at 192:  jesse | 2008-08-27 16:22:26 -0700
 * silence a warning with a better way to clear an environment variable


Modified: sd/branches/sd-trunk/lib/App/SD/Test.pm
==============================================================================
--- sd/branches/sd-trunk/lib/App/SD/Test.pm	(original)
+++ sd/branches/sd-trunk/lib/App/SD/Test.pm	Wed Aug 27 21:24:09 2008
@@ -164,7 +164,7 @@
 sub set_editor {
     my ($self, $script) = @_;
 
-    undef $ENV{'VISUAL'};       # Proc::InvokeEditor checks this first
+    delete $ENV{'VISUAL'};       # Proc::InvokeEditor checks this first
     $ENV{'EDITOR'} = File::Spec->catfile(getcwd(), 't', 'scripts', $script);
     diag 'export EDITOR=' . $ENV{'EDITOR'} . "\n";
 }