Changeset 1421

Show
Ignore:
Timestamp:
08/19/06 19:29:24
Author:
miyagawa
Message:

no tty option for Win32 portability

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r1368 r1421  
    1212chdir "$FindBin::Bin/.."; 
    1313 
    14 my $module = $ARGV[0] or die "Usage: plugin-start.pl Plugin::Name\n"; 
     14my $module = shift @ARGV or die "Usage: plugin-start.pl Plugin::Name\n"; 
    1515   $module =~ s/-/::/g; 
    1616 
    …… 
    2121$config->{author} ||= do { 
    2222    $save++; 
    23     prompt("Your name: ", -tty); 
     23    prompt("Your name: "); 
    2424}; 
    2525 
    …… 
    4848 
    4949    if (-e $path) { 
    50         my $ans = prompt("$path exists. Override? [yN] ", -tty, -yes_no, -default => 'n'); 
     50        my $ans = prompt("$path exists. Override? [yN] ", -yes_no, -default => 'n'); 
    5151        return if $ans !~ /[Yy]/; 
    5252    }