Changeset 1423

Show
Ignore:
Timestamp:
08/19/06 19:34:18
Author:
miyagawa
Message:

use ExtUtils?::MakeMaker? prompt

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/tools/plugin-start.pl

    r1421 r1423  
    44 
    55use FindBin; 
    6 use IO::Prompt; 
     6use ExtUtils::MakeMaker; 
    77use File::Basename; 
    88use File::Path; 
    …… 
    4848 
    4949    if (-e $path) { 
    50         my $ans = prompt("$path exists. Override? [yN] ", -yes_no, -default => 'n'); 
     50        my $ans = prompt("$path exists. Override? [yN] ", 'n'); 
    5151        return if $ans !~ /[Yy]/; 
    5252    }