Changeset 20911 for lang/perl/Module-Setup/trunk/lib/Module/Setup.pm

Timestamp:

10/07/08 19:37:22 (3 months ago)

Author:

yappo

Message:

s/prompt/dialog/

Files:

• lang/perl/Module-Setup/trunk/lib/Module/Setup.pm (modified) (1 diff)

lang/perl/Module-Setup/trunk/lib/Module/Setup.pm

@@ -467 +467 @@
     $self->_show_flavors_list($flavors);
 
-    my $selected = prompt( "Select flavor:", 1 );
+    my $selected = $self->dialog( 'Select flavor:', 1 );
     $flavors->[ $selected - 1 ] || 'default';
 }