Show
Ignore:
Timestamp:
04/17/08 18:17:30 (8 months ago)
Author:
fujiwara
Message:

lang/perl/Apache-JemplateFilter?:

  • Use ExtUtils::MakeMaker::prompt() in t/lib/Apache/test.pm
    (Thanks to IMACAT)
Location:
lang/perl/Apache-JemplateFilter/trunk
Files:
4 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Apache-JemplateFilter/trunk/Changes

    r1851 r9621  
    11Revision history for Apache-JemplateFilter 
     2 
     30.02    Thu Apr 17 17:46:27 JST 2008 
     4        Use ExtUtils::MakeMaker::prompt() in t/lib/Apache/test.pm 
     5        (Thanks to IMACAT) 
    26 
    370.01    Mon May  1 00:18:07 JST 2006 

  • lang/perl/Apache-JemplateFilter/trunk/META.yml

    r1851 r9621  
    22#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX# 
    33name:         Apache-JemplateFilter 
    4 version:      0.01 
     4version:      0.02 
    55version_from: lib/Apache/JemplateFilter.pm 
    66installdirs:  site 

  • lang/perl/Apache-JemplateFilter/trunk/lib/Apache/JemplateFilter.pm

    r1851 r9621  
    1515=head1 VERSION 
    1616 
    17 Version 0.01 
     17Version 0.02 
    1818 
    1919=cut 
    2020 
    21 our $VERSION = '0.01'; 
     21our $VERSION = '0.02'; 
    2222our $cache   = {}; 
    2323 

  • lang/perl/Apache-JemplateFilter/trunk/t/lib/Apache/test.pm

    r1851 r9621  
    66use Config; 
    77use FileHandle (); 
     8use ExtUtils::MakeMaker; 
    89*import = \&Exporter::import; 
    910 
    … …  
    9495    my $response; 
    9596    do { 
    96         print "$prompt [$default]$skip: "; 
    97         chomp($response = <STDIN>); 
    98         $response ||= $default; 
     97        $response = prompt("$prompt $skip:", $default); 
     98        $response = $canskip 
     99            if $mustfind && defined $canskip && $response eq $default && !-e $response; 
    99100    } until (!$mustfind || ($response eq $canskip) || (-e $response || !print("$response not found\n"))); 
    100101