Percona Toolkit moved to https://jira.percona.com/projects/PT

Merge lp:~percona-toolkit-dev/percona-toolkit/pt-show-grant-ask-pass-print-Enter-password-in-stdout-1290911 into lp:percona-toolkit/2.2

  1. pt-show-grant-ask-pass-print-Enter-password-in-stdout-1290911
  2. Merge into 2.2
Proposed by Frank Cizmich
Status: Merged
Approved by: Daniel Nichter
Approved revision: 599
Merged at revision: 602
Proposed branch: lp:~percona-toolkit-dev/percona-toolkit/pt-show-grant-ask-pass-print-Enter-password-in-stdout-1290911
Merge into: lp:percona-toolkit/2.2
Diff against target: 394 lines (+56/-27)
28 files modified
bin/pt-agent (+1/-1)
bin/pt-align (+1/-1)
bin/pt-archiver (+1/-1)
bin/pt-config-diff (+1/-1)
bin/pt-deadlock-logger (+1/-1)
bin/pt-diskstats (+1/-1)
bin/pt-duplicate-key-checker (+1/-1)
bin/pt-fifo-split (+1/-1)
bin/pt-find (+1/-1)
bin/pt-fingerprint (+1/-1)
bin/pt-fk-error-logger (+1/-1)
bin/pt-heartbeat (+1/-1)
bin/pt-index-usage (+1/-1)
bin/pt-kill (+1/-1)
bin/pt-online-schema-change (+1/-1)
bin/pt-query-digest (+1/-1)
bin/pt-show-grants (+1/-1)
bin/pt-slave-delay (+1/-1)
bin/pt-slave-find (+1/-1)
bin/pt-slave-restart (+1/-1)
bin/pt-table-checksum (+1/-1)
bin/pt-table-sync (+1/-1)
bin/pt-table-usage (+1/-1)
bin/pt-upgrade (+1/-1)
bin/pt-variable-advisor (+1/-1)
bin/pt-visual-explain (+1/-1)
lib/OptionParser.pm (+1/-1)
t/lib/OptionParser.t (+29/-0)
To merge this branch: bzr merge lp:~percona-toolkit-dev/percona-toolkit/pt-show-grant-ask-pass-print-Enter-password-in-stdout-1290911
Reviewer Review Type Date Requested Status
Daniel Nichter Approve
Review via email: mp+220866@code.launchpad.net

Description of the change

Changed OptionParser prompt_noecho function to output prompt to STDERR instead of STDOUT
This makes it easier to direct output to a file for tools that ask for a password.

To post a comment you must log in.
Revision history for this message
Daniel Nichter (daniel-nichter) :
review: Approve

Preview Diff

[H/L] Next/Prev Comment, [J/K] Next/Prev File, [N/P] Next/Prev Hunk
=== modified file 'bin/pt-agent'
--- bin/pt-agent 2014-02-20 08:10:16 +0000
+++ bin/pt-agent 2014-05-24 21:44:55 +0000
@@ -3381,7 +3381,7 @@
3381 shift @_ if ref $_[0] eq __PACKAGE__;3381 shift @_ if ref $_[0] eq __PACKAGE__;
3382 my ( $prompt ) = @_;3382 my ( $prompt ) = @_;
3383 local $OUTPUT_AUTOFLUSH = 1;3383 local $OUTPUT_AUTOFLUSH = 1;
3384 print $prompt3384 print STDERR $prompt
3385 or die "Cannot print: $OS_ERROR";3385 or die "Cannot print: $OS_ERROR";
3386 my $response;3386 my $response;
3387 eval {3387 eval {
33883388
=== modified file 'bin/pt-align'
--- bin/pt-align 2014-02-20 08:10:16 +0000
+++ bin/pt-align 2014-05-24 21:44:55 +0000
@@ -866,7 +866,7 @@
866 shift @_ if ref $_[0] eq __PACKAGE__;866 shift @_ if ref $_[0] eq __PACKAGE__;
867 my ( $prompt ) = @_;867 my ( $prompt ) = @_;
868 local $OUTPUT_AUTOFLUSH = 1;868 local $OUTPUT_AUTOFLUSH = 1;
869 print $prompt869 print STDERR $prompt
870 or die "Cannot print: $OS_ERROR";870 or die "Cannot print: $OS_ERROR";
871 my $response;871 my $response;
872 eval {872 eval {
873873
=== modified file 'bin/pt-archiver'
--- bin/pt-archiver 2014-02-20 08:10:16 +0000
+++ bin/pt-archiver 2014-05-24 21:44:55 +0000
@@ -1593,7 +1593,7 @@
1593 shift @_ if ref $_[0] eq __PACKAGE__;1593 shift @_ if ref $_[0] eq __PACKAGE__;
1594 my ( $prompt ) = @_;1594 my ( $prompt ) = @_;
1595 local $OUTPUT_AUTOFLUSH = 1;1595 local $OUTPUT_AUTOFLUSH = 1;
1596 print $prompt1596 print STDERR $prompt
1597 or die "Cannot print: $OS_ERROR";1597 or die "Cannot print: $OS_ERROR";
1598 my $response;1598 my $response;
1599 eval {1599 eval {
16001600
=== modified file 'bin/pt-config-diff'
--- bin/pt-config-diff 2014-02-20 08:10:16 +0000
+++ bin/pt-config-diff 2014-05-24 21:44:55 +0000
@@ -1593,7 +1593,7 @@
1593 shift @_ if ref $_[0] eq __PACKAGE__;1593 shift @_ if ref $_[0] eq __PACKAGE__;
1594 my ( $prompt ) = @_;1594 my ( $prompt ) = @_;
1595 local $OUTPUT_AUTOFLUSH = 1;1595 local $OUTPUT_AUTOFLUSH = 1;
1596 print $prompt1596 print STDERR $prompt
1597 or die "Cannot print: $OS_ERROR";1597 or die "Cannot print: $OS_ERROR";
1598 my $response;1598 my $response;
1599 eval {1599 eval {
16001600
=== modified file 'bin/pt-deadlock-logger'
--- bin/pt-deadlock-logger 2014-02-20 08:10:16 +0000
+++ bin/pt-deadlock-logger 2014-05-24 21:44:55 +0000
@@ -943,7 +943,7 @@
943 shift @_ if ref $_[0] eq __PACKAGE__;943 shift @_ if ref $_[0] eq __PACKAGE__;
944 my ( $prompt ) = @_;944 my ( $prompt ) = @_;
945 local $OUTPUT_AUTOFLUSH = 1;945 local $OUTPUT_AUTOFLUSH = 1;
946 print $prompt946 print STDERR $prompt
947 or die "Cannot print: $OS_ERROR";947 or die "Cannot print: $OS_ERROR";
948 my $response;948 my $response;
949 eval {949 eval {
950950
=== modified file 'bin/pt-diskstats'
--- bin/pt-diskstats 2014-02-20 08:10:16 +0000
+++ bin/pt-diskstats 2014-05-24 21:44:55 +0000
@@ -939,7 +939,7 @@
939 shift @_ if ref $_[0] eq __PACKAGE__;939 shift @_ if ref $_[0] eq __PACKAGE__;
940 my ( $prompt ) = @_;940 my ( $prompt ) = @_;
941 local $OUTPUT_AUTOFLUSH = 1;941 local $OUTPUT_AUTOFLUSH = 1;
942 print $prompt942 print STDERR $prompt
943 or die "Cannot print: $OS_ERROR";943 or die "Cannot print: $OS_ERROR";
944 my $response;944 my $response;
945 eval {945 eval {
946946
=== modified file 'bin/pt-duplicate-key-checker'
--- bin/pt-duplicate-key-checker 2014-02-20 08:10:16 +0000
+++ bin/pt-duplicate-key-checker 2014-05-24 21:44:55 +0000
@@ -1927,7 +1927,7 @@
1927 shift @_ if ref $_[0] eq __PACKAGE__;1927 shift @_ if ref $_[0] eq __PACKAGE__;
1928 my ( $prompt ) = @_;1928 my ( $prompt ) = @_;
1929 local $OUTPUT_AUTOFLUSH = 1;1929 local $OUTPUT_AUTOFLUSH = 1;
1930 print $prompt1930 print STDERR $prompt
1931 or die "Cannot print: $OS_ERROR";1931 or die "Cannot print: $OS_ERROR";
1932 my $response;1932 my $response;
1933 eval {1933 eval {
19341934
=== modified file 'bin/pt-fifo-split'
--- bin/pt-fifo-split 2014-02-20 08:10:16 +0000
+++ bin/pt-fifo-split 2014-05-24 21:44:55 +0000
@@ -867,7 +867,7 @@
867 shift @_ if ref $_[0] eq __PACKAGE__;867 shift @_ if ref $_[0] eq __PACKAGE__;
868 my ( $prompt ) = @_;868 my ( $prompt ) = @_;
869 local $OUTPUT_AUTOFLUSH = 1;869 local $OUTPUT_AUTOFLUSH = 1;
870 print $prompt870 print STDERR $prompt
871 or die "Cannot print: $OS_ERROR";871 or die "Cannot print: $OS_ERROR";
872 my $response;872 my $response;
873 eval {873 eval {
874874
=== modified file 'bin/pt-find'
--- bin/pt-find 2014-02-20 08:10:16 +0000
+++ bin/pt-find 2014-05-24 21:44:55 +0000
@@ -1359,7 +1359,7 @@
1359 shift @_ if ref $_[0] eq __PACKAGE__;1359 shift @_ if ref $_[0] eq __PACKAGE__;
1360 my ( $prompt ) = @_;1360 my ( $prompt ) = @_;
1361 local $OUTPUT_AUTOFLUSH = 1;1361 local $OUTPUT_AUTOFLUSH = 1;
1362 print $prompt1362 print STDERR $prompt
1363 or die "Cannot print: $OS_ERROR";1363 or die "Cannot print: $OS_ERROR";
1364 my $response;1364 my $response;
1365 eval {1365 eval {
13661366
=== modified file 'bin/pt-fingerprint'
--- bin/pt-fingerprint 2014-02-20 08:10:16 +0000
+++ bin/pt-fingerprint 2014-05-24 21:44:55 +0000
@@ -868,7 +868,7 @@
868 shift @_ if ref $_[0] eq __PACKAGE__;868 shift @_ if ref $_[0] eq __PACKAGE__;
869 my ( $prompt ) = @_;869 my ( $prompt ) = @_;
870 local $OUTPUT_AUTOFLUSH = 1;870 local $OUTPUT_AUTOFLUSH = 1;
871 print $prompt871 print STDERR $prompt
872 or die "Cannot print: $OS_ERROR";872 or die "Cannot print: $OS_ERROR";
873 my $response;873 my $response;
874 eval {874 eval {
875875
=== modified file 'bin/pt-fk-error-logger'
--- bin/pt-fk-error-logger 2014-02-20 08:10:16 +0000
+++ bin/pt-fk-error-logger 2014-05-24 21:44:55 +0000
@@ -938,7 +938,7 @@
938 shift @_ if ref $_[0] eq __PACKAGE__;938 shift @_ if ref $_[0] eq __PACKAGE__;
939 my ( $prompt ) = @_;939 my ( $prompt ) = @_;
940 local $OUTPUT_AUTOFLUSH = 1;940 local $OUTPUT_AUTOFLUSH = 1;
941 print $prompt941 print STDERR $prompt
942 or die "Cannot print: $OS_ERROR";942 or die "Cannot print: $OS_ERROR";
943 my $response;943 my $response;
944 eval {944 eval {
945945
=== modified file 'bin/pt-heartbeat'
--- bin/pt-heartbeat 2014-02-20 08:10:16 +0000
+++ bin/pt-heartbeat 2014-05-24 21:44:55 +0000
@@ -1675,7 +1675,7 @@
1675 shift @_ if ref $_[0] eq __PACKAGE__;1675 shift @_ if ref $_[0] eq __PACKAGE__;
1676 my ( $prompt ) = @_;1676 my ( $prompt ) = @_;
1677 local $OUTPUT_AUTOFLUSH = 1;1677 local $OUTPUT_AUTOFLUSH = 1;
1678 print $prompt1678 print STDERR $prompt
1679 or die "Cannot print: $OS_ERROR";1679 or die "Cannot print: $OS_ERROR";
1680 my $response;1680 my $response;
1681 eval {1681 eval {
16821682
=== modified file 'bin/pt-index-usage'
--- bin/pt-index-usage 2014-02-20 08:10:16 +0000
+++ bin/pt-index-usage 2014-05-24 21:44:55 +0000
@@ -1520,7 +1520,7 @@
1520 shift @_ if ref $_[0] eq __PACKAGE__;1520 shift @_ if ref $_[0] eq __PACKAGE__;
1521 my ( $prompt ) = @_;1521 my ( $prompt ) = @_;
1522 local $OUTPUT_AUTOFLUSH = 1;1522 local $OUTPUT_AUTOFLUSH = 1;
1523 print $prompt1523 print STDERR $prompt
1524 or die "Cannot print: $OS_ERROR";1524 or die "Cannot print: $OS_ERROR";
1525 my $response;1525 my $response;
1526 eval {1526 eval {
15271527
=== modified file 'bin/pt-kill'
--- bin/pt-kill 2014-02-20 08:10:16 +0000
+++ bin/pt-kill 2014-05-24 21:44:55 +0000
@@ -948,7 +948,7 @@
948 shift @_ if ref $_[0] eq __PACKAGE__;948 shift @_ if ref $_[0] eq __PACKAGE__;
949 my ( $prompt ) = @_;949 my ( $prompt ) = @_;
950 local $OUTPUT_AUTOFLUSH = 1;950 local $OUTPUT_AUTOFLUSH = 1;
951 print $prompt951 print STDERR $prompt
952 or die "Cannot print: $OS_ERROR";952 or die "Cannot print: $OS_ERROR";
953 my $response;953 my $response;
954 eval {954 eval {
955955
=== modified file 'bin/pt-online-schema-change'
--- bin/pt-online-schema-change 2014-02-20 08:10:16 +0000
+++ bin/pt-online-schema-change 2014-05-24 21:44:55 +0000
@@ -955,7 +955,7 @@
955 shift @_ if ref $_[0] eq __PACKAGE__;955 shift @_ if ref $_[0] eq __PACKAGE__;
956 my ( $prompt ) = @_;956 my ( $prompt ) = @_;
957 local $OUTPUT_AUTOFLUSH = 1;957 local $OUTPUT_AUTOFLUSH = 1;
958 print $prompt958 print STDERR $prompt
959 or die "Cannot print: $OS_ERROR";959 or die "Cannot print: $OS_ERROR";
960 my $response;960 my $response;
961 eval {961 eval {
962962
=== modified file 'bin/pt-query-digest'
--- bin/pt-query-digest 2014-02-20 08:10:16 +0000
+++ bin/pt-query-digest 2014-05-24 21:44:55 +0000
@@ -2188,7 +2188,7 @@
2188 shift @_ if ref $_[0] eq __PACKAGE__;2188 shift @_ if ref $_[0] eq __PACKAGE__;
2189 my ( $prompt ) = @_;2189 my ( $prompt ) = @_;
2190 local $OUTPUT_AUTOFLUSH = 1;2190 local $OUTPUT_AUTOFLUSH = 1;
2191 print $prompt2191 print STDERR $prompt
2192 or die "Cannot print: $OS_ERROR";2192 or die "Cannot print: $OS_ERROR";
2193 my $response;2193 my $response;
2194 eval {2194 eval {
21952195
=== modified file 'bin/pt-show-grants'
--- bin/pt-show-grants 2014-02-20 08:10:16 +0000
+++ bin/pt-show-grants 2014-05-24 21:44:55 +0000
@@ -868,7 +868,7 @@
868 shift @_ if ref $_[0] eq __PACKAGE__;868 shift @_ if ref $_[0] eq __PACKAGE__;
869 my ( $prompt ) = @_;869 my ( $prompt ) = @_;
870 local $OUTPUT_AUTOFLUSH = 1;870 local $OUTPUT_AUTOFLUSH = 1;
871 print $prompt871 print STDERR $prompt
872 or die "Cannot print: $OS_ERROR";872 or die "Cannot print: $OS_ERROR";
873 my $response;873 my $response;
874 eval {874 eval {
875875
=== modified file 'bin/pt-slave-delay'
--- bin/pt-slave-delay 2014-02-20 08:10:16 +0000
+++ bin/pt-slave-delay 2014-05-24 21:44:55 +0000
@@ -941,7 +941,7 @@
941 shift @_ if ref $_[0] eq __PACKAGE__;941 shift @_ if ref $_[0] eq __PACKAGE__;
942 my ( $prompt ) = @_;942 my ( $prompt ) = @_;
943 local $OUTPUT_AUTOFLUSH = 1;943 local $OUTPUT_AUTOFLUSH = 1;
944 print $prompt944 print STDERR $prompt
945 or die "Cannot print: $OS_ERROR";945 or die "Cannot print: $OS_ERROR";
946 my $response;946 my $response;
947 eval {947 eval {
948948
=== modified file 'bin/pt-slave-find'
--- bin/pt-slave-find 2014-02-20 08:10:16 +0000
+++ bin/pt-slave-find 2014-05-24 21:44:55 +0000
@@ -876,7 +876,7 @@
876 shift @_ if ref $_[0] eq __PACKAGE__;876 shift @_ if ref $_[0] eq __PACKAGE__;
877 my ( $prompt ) = @_;877 my ( $prompt ) = @_;
878 local $OUTPUT_AUTOFLUSH = 1;878 local $OUTPUT_AUTOFLUSH = 1;
879 print $prompt879 print STDERR $prompt
880 or die "Cannot print: $OS_ERROR";880 or die "Cannot print: $OS_ERROR";
881 my $response;881 my $response;
882 eval {882 eval {
883883
=== modified file 'bin/pt-slave-restart'
--- bin/pt-slave-restart 2014-02-20 08:10:16 +0000
+++ bin/pt-slave-restart 2014-05-24 21:44:55 +0000
@@ -1093,7 +1093,7 @@
1093 shift @_ if ref $_[0] eq __PACKAGE__;1093 shift @_ if ref $_[0] eq __PACKAGE__;
1094 my ( $prompt ) = @_;1094 my ( $prompt ) = @_;
1095 local $OUTPUT_AUTOFLUSH = 1;1095 local $OUTPUT_AUTOFLUSH = 1;
1096 print $prompt1096 print STDERR $prompt
1097 or die "Cannot print: $OS_ERROR";1097 or die "Cannot print: $OS_ERROR";
1098 my $response;1098 my $response;
1099 eval {1099 eval {
11001100
=== modified file 'bin/pt-table-checksum'
--- bin/pt-table-checksum 2014-02-20 08:10:16 +0000
+++ bin/pt-table-checksum 2014-05-24 21:44:55 +0000
@@ -2605,7 +2605,7 @@
2605 shift @_ if ref $_[0] eq __PACKAGE__;2605 shift @_ if ref $_[0] eq __PACKAGE__;
2606 my ( $prompt ) = @_;2606 my ( $prompt ) = @_;
2607 local $OUTPUT_AUTOFLUSH = 1;2607 local $OUTPUT_AUTOFLUSH = 1;
2608 print $prompt2608 print STDERR $prompt
2609 or die "Cannot print: $OS_ERROR";2609 or die "Cannot print: $OS_ERROR";
2610 my $response;2610 my $response;
2611 eval {2611 eval {
26122612
=== modified file 'bin/pt-table-sync'
--- bin/pt-table-sync 2014-02-20 08:10:16 +0000
+++ bin/pt-table-sync 2014-05-24 21:44:55 +0000
@@ -956,7 +956,7 @@
956 shift @_ if ref $_[0] eq __PACKAGE__;956 shift @_ if ref $_[0] eq __PACKAGE__;
957 my ( $prompt ) = @_;957 my ( $prompt ) = @_;
958 local $OUTPUT_AUTOFLUSH = 1;958 local $OUTPUT_AUTOFLUSH = 1;
959 print $prompt959 print STDERR $prompt
960 or die "Cannot print: $OS_ERROR";960 or die "Cannot print: $OS_ERROR";
961 my $response;961 my $response;
962 eval {962 eval {
963963
=== modified file 'bin/pt-table-usage'
--- bin/pt-table-usage 2014-02-20 08:10:16 +0000
+++ bin/pt-table-usage 2014-05-24 21:44:55 +0000
@@ -1305,7 +1305,7 @@
1305 shift @_ if ref $_[0] eq __PACKAGE__;1305 shift @_ if ref $_[0] eq __PACKAGE__;
1306 my ( $prompt ) = @_;1306 my ( $prompt ) = @_;
1307 local $OUTPUT_AUTOFLUSH = 1;1307 local $OUTPUT_AUTOFLUSH = 1;
1308 print $prompt1308 print STDERR $prompt
1309 or die "Cannot print: $OS_ERROR";1309 or die "Cannot print: $OS_ERROR";
1310 my $response;1310 my $response;
1311 eval {1311 eval {
13121312
=== modified file 'bin/pt-upgrade'
--- bin/pt-upgrade 2014-02-20 08:10:16 +0000
+++ bin/pt-upgrade 2014-05-24 21:44:55 +0000
@@ -2185,7 +2185,7 @@
2185 shift @_ if ref $_[0] eq __PACKAGE__;2185 shift @_ if ref $_[0] eq __PACKAGE__;
2186 my ( $prompt ) = @_;2186 my ( $prompt ) = @_;
2187 local $OUTPUT_AUTOFLUSH = 1;2187 local $OUTPUT_AUTOFLUSH = 1;
2188 print $prompt2188 print STDERR $prompt
2189 or die "Cannot print: $OS_ERROR";2189 or die "Cannot print: $OS_ERROR";
2190 my $response;2190 my $response;
2191 eval {2191 eval {
21922192
=== modified file 'bin/pt-variable-advisor'
--- bin/pt-variable-advisor 2014-02-20 08:10:16 +0000
+++ bin/pt-variable-advisor 2014-05-24 21:44:55 +0000
@@ -945,7 +945,7 @@
945 shift @_ if ref $_[0] eq __PACKAGE__;945 shift @_ if ref $_[0] eq __PACKAGE__;
946 my ( $prompt ) = @_;946 my ( $prompt ) = @_;
947 local $OUTPUT_AUTOFLUSH = 1;947 local $OUTPUT_AUTOFLUSH = 1;
948 print $prompt948 print STDERR $prompt
949 or die "Cannot print: $OS_ERROR";949 or die "Cannot print: $OS_ERROR";
950 my $response;950 my $response;
951 eval {951 eval {
952952
=== modified file 'bin/pt-visual-explain'
--- bin/pt-visual-explain 2014-02-20 08:10:16 +0000
+++ bin/pt-visual-explain 2014-05-24 21:44:55 +0000
@@ -1542,7 +1542,7 @@
1542 shift @_ if ref $_[0] eq __PACKAGE__;1542 shift @_ if ref $_[0] eq __PACKAGE__;
1543 my ( $prompt ) = @_;1543 my ( $prompt ) = @_;
1544 local $OUTPUT_AUTOFLUSH = 1;1544 local $OUTPUT_AUTOFLUSH = 1;
1545 print $prompt1545 print STDERR $prompt
1546 or die "Cannot print: $OS_ERROR";1546 or die "Cannot print: $OS_ERROR";
1547 my $response;1547 my $response;
1548 eval {1548 eval {
15491549
=== modified file 'lib/OptionParser.pm'
--- lib/OptionParser.pm 2013-11-08 01:47:10 +0000
+++ lib/OptionParser.pm 2014-05-24 21:44:55 +0000
@@ -1090,7 +1090,7 @@
1090 shift @_ if ref $_[0] eq __PACKAGE__;1090 shift @_ if ref $_[0] eq __PACKAGE__;
1091 my ( $prompt ) = @_;1091 my ( $prompt ) = @_;
1092 local $OUTPUT_AUTOFLUSH = 1;1092 local $OUTPUT_AUTOFLUSH = 1;
1093 print $prompt1093 print STDERR $prompt
1094 or die "Cannot print: $OS_ERROR";1094 or die "Cannot print: $OS_ERROR";
1095 my $response;1095 my $response;
1096 eval {1096 eval {
10971097
=== modified file 't/lib/OptionParser.t'
--- t/lib/OptionParser.t 2013-08-08 02:02:11 +0000
+++ t/lib/OptionParser.t 2014-05-24 21:44:55 +0000
@@ -2117,6 +2117,32 @@
2117 "--optimize got its value (bug 1199589)"2117 "--optimize got its value (bug 1199589)"
2118);2118);
21192119
2120
2121# #############################################################################
2122# Issue 1290911 : prompt_noecho should send prompt to STDERR so user can
2123# direct STDOUT to a file and still see the prompt
2124# #############################################################################
2125
2126$o = new OptionParser();
2127
2128$output = output(
2129 sub {
2130 my $input = "thepassword";
2131 local *STDIN;
2132 open STDIN, '<', \$input;
2133 $o->prompt_noecho('Test Prompt:'); },
2134
2135 stderr=>1,
2136 );
2137
2138is (
2139 $output,
2140 "Test Prompt:\n",
2141 'prompt_no_echo outputs prompt to STDERR'
2142);
2143
2144
2145
2120# #############################################################################2146# #############################################################################
2121# Done.2147# Done.
2122# #############################################################################2148# #############################################################################
@@ -2133,3 +2159,6 @@
21332159
2134done_testing;2160done_testing;
2135exit;2161exit;
2162
2163
2164

Subscribers

People subscribed via source and target branches