diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-12 06:01:29 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-12 06:01:29 +0000 |
| commit | 2371fea9e14a724e668c4f56ab57c9078e9bdee5 (patch) | |
| tree | 7a2fc53e47eb983fe59e58e9f492924de0fea7fe /lib/CGI | |
| parent | 23d8d7bf243d2e9fd4ad12b763dae6deeb8c2122 (diff) | |
| download | perl-2371fea9e14a724e668c4f56ab57c9078e9bdee5.tar.gz | |
Upgrade to CGI.pm 2.80.
p4raw-id: //depot/perl@14211
Diffstat (limited to 'lib/CGI')
| -rw-r--r-- | lib/CGI/Carp.pm | 8 | ||||
| -rwxr-xr-x | lib/CGI/t/form.t | 20 |
2 files changed, 14 insertions, 14 deletions
diff --git a/lib/CGI/Carp.pm b/lib/CGI/Carp.pm index a3b8b40678..dbb78c876f 100644 --- a/lib/CGI/Carp.pm +++ b/lib/CGI/Carp.pm @@ -318,10 +318,10 @@ sub set_message { return $CGI::Carp::CUSTOM_MSG; } -sub confess { CGI::Carp::die Carp::longmess \@_; } -sub croak { CGI::Carp::die Carp::shortmess \@_; } -sub carp { CGI::Carp::warn Carp::shortmess \@_; } -sub cluck { CGI::Carp::warn Carp::longmess \@_; } +sub confess { CGI::Carp::die Carp::longmess @_; } +sub croak { CGI::Carp::die Carp::shortmess @_; } +sub carp { CGI::Carp::warn Carp::shortmess @_; } +sub cluck { CGI::Carp::warn Carp::longmess @_; } # We have to be ready to accept a filehandle as a reference # or a string. diff --git a/lib/CGI/t/form.t b/lib/CGI/t/form.t index 612e2e1650..a6a90a6058 100755 --- a/lib/CGI/t/form.t +++ b/lib/CGI/t/form.t @@ -85,30 +85,30 @@ is(checkbox(-name => 'weather', -label => 'forecast', -checked => 1, -override => 1), - qq(<input type="checkbox" name="weather" value="nice" checked="1" />forecast), + qq(<input type="checkbox" name="weather" value="nice" checked="checked" />forecast), "checkbox()"); is(checkbox(-name => 'weather', -value => 'dull', -label => 'forecast'), - qq(<input type="checkbox" name="weather" value="dull" checked="1" />forecast), + qq(<input type="checkbox" name="weather" value="dull" checked="checked" />forecast), "checkbox()"); is(radio_group(-name => 'game'), - qq(<input type="radio" name="game" value="chess" checked="1" />chess ). + qq(<input type="radio" name="game" value="chess" checked="checked" />chess ). qq(<input type="radio" name="game" value="checkers" />checkers), 'radio_group()'); is(radio_group(-name => 'game', -labels => {'chess' => 'ping pong'}), - qq(<input type="radio" name="game" value="chess" checked="1" />ping pong ). + qq(<input type="radio" name="game" value="chess" checked="checked" />ping pong ). qq(<input type="radio" name="game" value="checkers" />checkers), 'radio_group()'); is(checkbox_group(-name => 'game', -Values => [qw/checkers chess cribbage/]), - qq(<input type="checkbox" name="game" value="checkers" checked="1" />checkers ). - qq(<input type="checkbox" name="game" value="chess" checked="1" />chess ). + qq(<input type="checkbox" name="game" value="checkers" checked="checked" />checkers ). + qq(<input type="checkbox" name="game" value="chess" checked="checked" />chess ). qq(<input type="checkbox" name="game" value="cribbage" />cribbage), 'checkbox_group()'); @@ -117,7 +117,7 @@ is(checkbox_group(-name => 'game', '-defaults' => ['cribbage'],-override=>1), qq(<input type="checkbox" name="game" value="checkers" />checkers ). qq(<input type="checkbox" name="game" value="chess" />chess ). - qq(<input type="checkbox" name="game" value="cribbage" checked="1" />cribbage), + qq(<input type="checkbox" name="game" value="cribbage" checked="checked" />cribbage), 'checkbox_group()'); is(popup_menu(-name => 'game', @@ -126,9 +126,9 @@ is(popup_menu(-name => 'game', -override => 1)."\n", <<END, 'checkbox_group()'); <select name="game"> -<option value="checkers">checkers</option> -<option value="chess">chess</option> -<option selected="1" value="cribbage">cribbage</option> +<option value="checkers">checkers</option> +<option value="chess">chess</option> +<option selected="selected" value="cribbage">cribbage</option> </select> END |