[poe-commits] SF.net SVN: poe: [2170] trunk/poe/t/30_loops/00_base/wheel_readline.pm
Brought to you by:
rcaputo
From: <rc...@us...> - 2007-01-18 19:31:19
|
Revision: 2170 http://svn.sourceforge.net/poe/?rev=2170&view=rev Author: rcaputo Date: 2007-01-18 11:31:11 -0800 (Thu, 18 Jan 2007) Log Message: ----------- Rafael Kitover found out that some .inputrc entries can break the Wheel::ReadLine test. This change sets $ENV{INPUTRC} to a nonexistent file, which effectively disables .inputrc redefines. Modified Paths: -------------- trunk/poe/t/30_loops/00_base/wheel_readline.pm Modified: trunk/poe/t/30_loops/00_base/wheel_readline.pm =================================================================== --- trunk/poe/t/30_loops/00_base/wheel_readline.pm 2007-01-14 18:09:57 UTC (rev 2169) +++ trunk/poe/t/30_loops/00_base/wheel_readline.pm 2007-01-18 19:31:11 UTC (rev 2170) @@ -9,6 +9,18 @@ sub DEBUG () { 0 } +# Set the INPUTRC environment variable to a nonexistent file. This +# prevents users from overriding the behaviors of keystrokes we user +# here. + +BEGIN { + foreach my $candidate (qw(nonexistent moo deleteme please-dont-exist)) { + next if -f $candidate; + $ENV{INPUTRC} = $candidate; + last; + } +} + ### Tests to run. # # Each test consists of a "name" for test reporting, a series of steps This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |