[svn:parrot] r30116 - branches/scriptconfigure/t/configure

[jkeenan]

Author: jkeenan
Date: Thu Aug  7 18:13:28 2008
New Revision: 30116

Modified:
   branches/scriptconfigure/t/configure/001-options.t

Log:
Correct duplicate 'my' variables warning.

Modified: branches/scriptconfigure/t/configure/001-options.t
==============================================================================
--- branches/scriptconfigure/t/configure/001-options.t  (original)
+++ branches/scriptconfigure/t/configure/001-options.t  Thu Aug  7 18:13:28 2008
@@ -266,7 +266,7 @@
 };
 ($args, $options_components, $script) =
     Parrot::Configure::Options::_process_options_components($args);
-my ($data, $short_circuits_ref) =
+($data, $short_circuits_ref) =
     Parrot::Configure::Options::_initial_pass(
         $args, $options_components, $script);
 is($data->{verbose}, 1, "Got expected value for verbose");