Skip Menu | will be shut down on March 1st, 2021.

This queue is for tickets about the Apache-SSI CPAN distribution.

Report information
The Basics
Id: 34603
Status: new
Priority: 0/
Queue: Apache-SSI

Owner: Nobody in particular
Requestors: imacat [...]

Bug Information
Severity: Normal
Broken in: 2.19
Fixed in: (no value)


Subject: Use prompt() in Makefile.PL to Allow Automated Tests
MIME-Version: 1.0
X-Mailer: MIME-tools 5.418 (Entity 5.418)
Charset: utf8
X-RT-Original-Encoding: utf-8
Content-Type: multipart/mixed; boundary="----------=_1207089458-24883-10"
Content-Length: 0
Content-Type: text/plain
Content-Disposition: inline
Content-Transfer-Encoding: binary
Content-Length: 624
Download (untitled) / with headers
text/plain 624b
Dear Ken Williams, Hi. This is imacat from Taiwan. I found that the Makefile.PL of Apache-SSI-2.19 goes into infinite loop if nothing is read from keyboard. I would suggest that you use prompt() instead of directly obtain input from the STDIN, as suggested in the ExtUtils::MakeMaker document, so that the it won't go into infinite loop. <<ExtUtils::MakeMaker>> Other Handy Functions I made a simple patch to Apache-SSI-2.19, in the hope that it helps. Please tell me if you have any question, or if I could be of any help. Thank you.
Subject: Apache-SSI-2.19-prompt.diff
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="----------=_1207089458-24883-9"
X-Mailer: MIME-tools 5.418 (Entity 5.418)
Charset: utf8
Content-Length: 0
Content-Type: text/plain
Content-Disposition: inline
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: iso-8859-1
Content-Length: 0
Content-Type: application/octet-stream; name="Apache-SSI-2.19-prompt.diff"
Content-Disposition: inline; filename="Apache-SSI-2.19-prompt.diff"
Content-Transfer-Encoding: base64
Content-Length: 1179
-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 diff -u -r Apache-SSI-2.19.orig/t/lib/Apache/ Apache-SSI-2.19/t/lib/Apache/ - --- Apache-SSI-2.19.orig/t/lib/Apache/ 2005-01-27 12:03:09.000000000 +0800 +++ Apache-SSI-2.19/t/lib/Apache/ 2008-04-02 06:34:25.000000000 +0800 @@ -5,6 +5,7 @@ use Exporter (); use Config; use FileHandle (); +use ExtUtils::MakeMaker; *import = \&Exporter::import; @EXPORT = qw(test fetch simple_fetch have_module skip_test @@ -93,9 +94,9 @@ my $skip = defined $canskip ? " ('$canskip' to skip)" : ''; my $response; do { - - print "$prompt [$default]$skip: "; - - chomp($response = <STDIN>); - - $response ||= $default; + $response = prompt("$prompt $skip:", $default); + $response = $canskip + if $mustfind && defined $canskip && $response eq $default && !-e $response; } until (!$mustfind || ($response eq $canskip) || (-e $response || !print("$response not found\n"))); return $response; -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.9 (GNU/Linux) iEYEARECAAYFAkfyuJQACgkQi9gubzC5S1z3RwCgldedZAjSognjikOOkpa3FcrG t+UAn0oyqKbxaxyiioYMGlBurwbiKnBs =kr4w -----END PGP SIGNATURE-----

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to