Hello community, here is the log from the commit of package perl-CGI for openSUSE:Factory checked in at 2016-07-21 08:17:33 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-CGI (Old) and /work/SRC/openSUSE:Factory/.perl-CGI.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-CGI" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-CGI/perl-CGI.changes 2016-06-25 02:23:50.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-CGI.new/perl-CGI.changes 2016-07-21 08:17:41.000000000 +0200 @@ -1,0 +2,16 @@ +Wed Jul 20 05:04:29 UTC 2016 - [email protected] + +- updated to 4.32 + see /usr/share/doc/packages/perl-CGI/Changes + + 4.32 2016-07-19 + + [ DOCUMENTATION ] + - make perldoc CGI object consistent (GH #205) + - clarify reason for absolute URLs (GH #206) + + [ INTERNALS ] + - tweak dependency defs in Makefile.PL (GH #207, GH #208) + - (thanks to karenetheridge and kentfredric) + +------------------------------------------------------------------- Old: ---- CGI-4.31.tar.gz New: ---- CGI-4.32.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-CGI.spec ++++++ --- /var/tmp/diff_new_pack.cui7aw/_old 2016-07-21 08:17:42.000000000 +0200 +++ /var/tmp/diff_new_pack.cui7aw/_new 2016-07-21 08:17:42.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-CGI -Version: 4.31 +Version: 4.32 Release: 0 %define cpan_name CGI Summary: Handle Common Gateway Interface requests and responses @@ -38,9 +38,6 @@ BuildRequires: perl(parent) >= 0.225 Requires: perl(File::Temp) >= 0.17 Requires: perl(HTML::Entities) >= 3.69 -Requires: perl(Test::Deep) >= 0.11 -Requires: perl(Test::More) >= 0.98 -Requires: perl(Test::Warn) >= 0.3 Requires: perl(parent) >= 0.225 %{perl_requires} ++++++ CGI-4.31.tar.gz -> CGI-4.32.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/Changes new/CGI-4.32/Changes --- old/CGI-4.31/Changes 2016-06-14 09:05:59.000000000 +0200 +++ new/CGI-4.32/Changes 2016-07-19 08:59:06.000000000 +0200 @@ -1,3 +1,13 @@ +4.32 2016-07-19 + + [ DOCUMENTATION ] + - make perldoc CGI object consistent (GH #205) + - clarify reason for absolute URLs (GH #206) + + [ INTERNALS ] + - tweak dependency defs in Makefile.PL (GH #207, GH #208) + - (thanks to karenetheridge and kentfredric) + 4.31 2016-06-14 [ FEATURES ] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/META.json new/CGI-4.32/META.json --- old/CGI-4.31/META.json 2016-06-14 09:07:26.000000000 +0200 +++ new/CGI-4.32/META.json 2016-07-19 09:04:12.000000000 +0200 @@ -22,28 +22,24 @@ }, "prereqs" : { "build" : { - "requires" : {} + "requires" : { + "ExtUtils::MakeMaker" : "0" + } }, "configure" : { - "requires" : {} + "requires" : { + "ExtUtils::MakeMaker" : "0" + } }, "runtime" : { "requires" : { "Carp" : "0", "Config" : "0", - "Cwd" : "0", "Encode" : "0", "Exporter" : "0", - "File::Find" : "0", "File::Spec" : "0.82", "File::Temp" : "0.17", "HTML::Entities" : "3.69", - "IO::File" : "0", - "IO::Handle" : "0", - "POSIX" : "0", - "Test::Deep" : "0.11", - "Test::More" : "0.98", - "Test::Warn" : "0.3", "base" : "0", "if" : "0", "overload" : "0", @@ -53,6 +49,18 @@ "utf8" : "0", "warnings" : "0" } + }, + "test" : { + "requires" : { + "Cwd" : "0", + "File::Find" : "0", + "IO::File" : "0", + "IO::Handle" : "0", + "POSIX" : "0", + "Test::Deep" : "0.11", + "Test::More" : "0.98", + "Test::Warn" : "0.3" + } } }, "release_status" : "stable", @@ -65,9 +73,11 @@ "http://dev.perl.org/licenses/"; ], "repository" : { - "url" : "https://github.com/leejo/CGI.pm"; + "type" : "git", + "url" : "https://github.com/leejo/CGI.pm";, + "web" : "https://github.com/leejo/CGI.pm"; } }, - "version" : "4.31", + "version" : "4.32", "x_serialization_backend" : "JSON::PP version 2.27300" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/META.yml new/CGI-4.32/META.yml --- old/CGI-4.31/META.yml 2016-06-14 09:07:26.000000000 +0200 +++ new/CGI-4.32/META.yml 2016-07-19 09:04:12.000000000 +0200 @@ -2,8 +2,18 @@ abstract: 'Handle Common Gateway Interface requests and responses' author: - unknown -build_requires: {} -configure_requires: {} +build_requires: + Cwd: '0' + ExtUtils::MakeMaker: '0' + File::Find: '0' + IO::File: '0' + IO::Handle: '0' + POSIX: '0' + Test::Deep: '0.11' + Test::More: '0.98' + Test::Warn: '0.3' +configure_requires: + ExtUtils::MakeMaker: '0' dynamic_config: 1 generated_by: 'ExtUtils::MakeMaker version 7.1001, CPAN::Meta::Converter version 2.150005' license: perl @@ -19,19 +29,11 @@ requires: Carp: '0' Config: '0' - Cwd: '0' Encode: '0' Exporter: '0' - File::Find: '0' File::Spec: '0.82' File::Temp: '0.17' HTML::Entities: '3.69' - IO::File: '0' - IO::Handle: '0' - POSIX: '0' - Test::Deep: '0.11' - Test::More: '0.98' - Test::Warn: '0.3' base: '0' if: '0' overload: '0' @@ -45,5 +47,5 @@ homepage: https://metacpan.org/module/CGI license: http://dev.perl.org/licenses/ repository: https://github.com/leejo/CGI.pm -version: '4.31' +version: '4.32' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/Makefile.PL new/CGI-4.32/Makefile.PL --- old/CGI-4.31/Makefile.PL 2016-06-14 09:05:02.000000000 +0200 +++ new/CGI-4.32/Makefile.PL 2016-07-19 08:58:21.000000000 +0200 @@ -27,14 +27,16 @@ 'HTML::Entities' => 3.69, 'Encode' => 0, # Encode was first released with perl v5.7.3 'Config' => 0, # Config was first released with perl 5.00307 - 'Test::Deep' => 0.11, - 'Cwd' => 0, # Cwd was first released with perl 5 - 'POSIX' => 0, # POSIX was first released with perl 5 - 'IO::File' => 0, # IO::File was first released with perl 5.00307 - 'IO::Handle' => 0, # IO::Handle was first released with perl 5.00307 - 'File::Find' => 0, # File::Find was first released with perl 5 - 'Test::More' => 0.98, - 'Test::Warn' => 0.30, + }, + TEST_REQUIRES => { + 'Cwd' => 0, # Cwd was first released with perl 5 + 'POSIX' => 0, # POSIX was first released with perl 5 + 'IO::File' => 0, # IO::File was first released with perl 5.00307 + 'IO::Handle' => 0, # IO::Handle was first released with perl 5.00307 + 'File::Find' => 0, # File::Find was first released with perl 5 + 'Test::Deep' => 0.11, + 'Test::More' => 0.98, + 'Test::Warn' => 0.30, }, test => { TESTS => 't/*.t t/headers/*.t' }, linkext => { LINKTYPE => '' }, # no link needed @@ -49,19 +51,22 @@ ? () : ( META_MERGE => { - requires => { perl => '5.008001' }, - resources => { + 'meta-spec' => { version => 2 }, + requires => { perl => '5.008001' }, + resources => { license => 'http://dev.perl.org/licenses/', homepage => 'https://metacpan.org/module/CGI', - repository => 'https://github.com/leejo/CGI.pm', - bugtracker => 'https://github.com/leejo/CGI.pm/issues', + repository => { + url => 'https://github.com/leejo/CGI.pm', + web => 'https://github.com/leejo/CGI.pm', + type => 'git', + }, + bugtracker => { + web => 'https://github.com/leejo/CGI.pm/issues', + } }, no_index => { directory => [qw/t/] }, }, - META_ADD => { - build_requires => {}, - configure_requires => {} - }, ) ), ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/README.md new/CGI-4.32/README.md --- old/CGI-4.31/README.md 2016-05-23 09:58:56.000000000 +0200 +++ new/CGI-4.32/README.md 2016-07-19 08:32:45.000000000 +0200 @@ -15,6 +15,7 @@ use CGI; + # create a CGI object (query) for use my $q = CGI->new; # Process an HTTP request @@ -23,8 +24,8 @@ my $fh = $q->upload('file_field'); - my $riddle = $query->cookie('riddle_name'); - my %answers = $query->cookie('answers'); + my $riddle = $q->cookie('riddle_name'); + my %answers = $q->cookie('answers'); # Prepare various HTTP responses print $q->header(); @@ -139,8 +140,6 @@ my $q = CGI->new; # create new CGI object print $q->header; # create the HTTP header - ... - In the function-oriented style, there is one default CGI object that you rarely deal with directly. Instead you just call functions to retrieve CGI parameters, manage cookies, and so on. The following example @@ -157,8 +156,6 @@ use CGI qw/:standard/; # load standard CGI routines print header(); # create the HTTP header - ... - The examples in this document mainly use the object-oriented style. See HOW TO IMPORT FUNCTIONS for important information on function-oriented programming in CGI.pm @@ -227,10 +224,10 @@ ## Creating a new query object (object-oriented style) - my $query = CGI->new; + my $q = CGI->new; This will parse the input (from POST, GET and DELETE methods) and store -it into a perl5 object called $query. Note that because the input parsing +it into a perl5 object called $q. Note that because the input parsing happens at object instantiation you have to set any CGI package variables that control parsing **before** you call CGI->new. @@ -239,7 +236,7 @@ ## Creating a new query object from an input file - my $query = CGI->new( $input_filehandle ); + my $q = CGI->new( $input_filehandle ); If you provide a file handle to the new() method, it will read parameters from the file (or STDIN, or whatever). The file can be in any of the forms @@ -262,7 +259,7 @@ You can also initialize the query object from a hash reference: - my $query = CGI->new( { + my $q = CGI->new( { 'dinosaur' => 'barney', 'song' => 'I love you', 'friends' => [ qw/ Jessica George Nancy / ] @@ -270,7 +267,7 @@ or from a properly formatted, URL-escaped query string: - my $query = CGI->new('dinosaur=barney&color=purple'); + my $q = CGI->new('dinosaur=barney&color=purple'); or from a previously existing CGI object (currently this clones the parameter list, but none of the other object-specific fields, such as autoescaping): @@ -288,16 +285,16 @@ ## Fetching a list of keywords from the query - my @keywords = $query->keywords + my @keywords = $q->keywords If the script was invoked as the result of an ISINDEX search, the parsed keywords can be obtained as an array using the keywords() method. ## Fetching the names of all the parameters passed to your script - my @names = $query->multi_param + my @names = $q->multi_param - my @names = $query->param + my @names = $q->param If the script was invoked with a parameter list (e.g. "name1=value1&name2=value2&name3=value3"), the param() / multi\_param() @@ -313,11 +310,11 @@ ## Fetching the value or values of a single named parameter - my @values = $query->multi_param('foo'); + my @values = $q->multi_param('foo'); -or- - my $value = $query->param('foo'); + my $value = $q->param('foo'); Pass the param() / multi\_param() method a single argument to fetch the value of the named parameter. If the parameter is multivalued (e.g. from multiple @@ -336,13 +333,13 @@ my %user_info = ( id => 1, - name => $query->param('name'), + name => $q->param('name'), ); The fix for the above is to force scalar context on the call to ->param by prefixing it with "scalar" - name => scalar $query->param('name'), + name => scalar $q->param('name'), If you call param() in list context with an argument a warning will be raised by CGI.pm, you can disable this warning by setting $CGI::LIST\_CONTEXT\_WARN to 0 @@ -356,7 +353,7 @@ ## Setting the value(s) of a named parameter - $query->param('foo','an','array','of','values'); + $q->param('foo','an','array','of','values'); This sets the value for the named parameter 'foo' to an array of values. This is one way to change the value of a field AFTER the script has been invoked @@ -365,21 +362,21 @@ param() also recognizes a named parameter style of calling described in more detail later: - $query->param( + $q->param( -name => 'foo', -values => ['an','array','of','values'], ); -or- - $query->param( + $q->param( -name => 'foo', -value => 'the value', ); ## Appending additional values to a named parameter - $query->append( + $q->append( -name =>'foo', -values =>['yet','more','values'], ); @@ -391,7 +388,7 @@ ## Importing all parameters into a namespace - $query->import_names('R'); + $q->import_names('R'); This creates a series of variables in the 'R' namespace. For example, $R::foo, @R:foo. For keyword lists, a variable @R::keywords will appear. If no namespace @@ -408,7 +405,7 @@ ## Deleting a parameter completely - $query->delete('foo','bar','baz'); + $q->delete('foo','bar','baz'); This completely clears a list of parameters. It sometimes useful for resetting parameters that you don't want passed down between script invocations. @@ -418,7 +415,7 @@ ## Deleting all parameters - $query->delete_all(); + $q->delete_all(); This clears the CGI object completely. It might be useful to ensure that all the defaults are taken when you create a fill-out form. @@ -432,11 +429,11 @@ be returned as-is in a parameter named POSTDATA. To retrieve it, use code like this: - my $data = $query->param('POSTDATA'); + my $data = $q->param('POSTDATA'); Likewise if PUTed data can be retrieved with code like this: - my $data = $query->param('PUTDATA'); + my $data = $q->param('PUTDATA'); (If you don't know what the preceding means, worry not. It only affects people trying to use CGI for XML processing and other specialized tasks) @@ -490,7 +487,7 @@ ## Saving the state of the script to a file - $query->save(\*FILEHANDLE) + $q->save(\*FILEHANDLE) This will write the current state of the form to the provided filehandle. You can read it back in by providing a filehandle to the new() method. Note that @@ -827,8 +824,10 @@ The redirect() method redirects the browser to a different URL. If you use redirection like this, you should **not** print out a header as well. -You should always use full URLs (including the http: or ftp: part) in -redirection requests. Relative URLs will not work correctly. +You are advised to use full URLs (absolute with respect to current URL or even +including the http: or ftp: part) in redirection requests as relative URLs +are resolved by the user agent of the client so may not do what you want or +expect them to do. You can also use named arguments: @@ -1020,8 +1019,8 @@ can access the temporary file directly. You can access the temp file for a file upload by passing the file name to the tmpFileName() method: - my $filehandle = $query->upload( 'uploaded_file' ); - my $tmpfilename = $query->tmpFileName( $filehandle ); + my $filehandle = $q->upload( 'uploaded_file' ); + my $tmpfilename = $q->tmpFileName( $filehandle ); As with ->uploadInfo, using the reference returned by ->upload or ->param is preferred, although unlike ->uploadInfo, plain filenames also work if possible @@ -1265,7 +1264,7 @@ **-value** parameter. This example uses the object-oriented form: my $riddle = $q->cookie('riddle_name'); - my %answers = $query->cookie('answers'); + my %answers = $q->cookie('answers'); Cookies created with a single scalar value, such as the "riddle\_name" cookie, will be returned in that form. Cookies with array and hash values can also be diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/lib/CGI/Carp.pm new/CGI-4.32/lib/CGI/Carp.pm --- old/CGI-4.31/lib/CGI/Carp.pm 2016-06-14 09:06:48.000000000 +0200 +++ new/CGI-4.32/lib/CGI/Carp.pm 2016-07-19 08:58:32.000000000 +0200 @@ -327,7 +327,7 @@ $main::SIG{__WARN__}=\&CGI::Carp::warn; -$CGI::Carp::VERSION = '4.31'; +$CGI::Carp::VERSION = '4.32'; $CGI::Carp::CUSTOM_MSG = undef; $CGI::Carp::DIE_HANDLER = undef; $CGI::Carp::TO_BROWSER = 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/lib/CGI/Cookie.pm new/CGI-4.32/lib/CGI/Cookie.pm --- old/CGI-4.31/lib/CGI/Cookie.pm 2016-06-14 09:06:51.000000000 +0200 +++ new/CGI-4.32/lib/CGI/Cookie.pm 2016-07-19 08:58:32.000000000 +0200 @@ -5,7 +5,7 @@ use if $] >= 5.019, 'deprecate'; -our $VERSION='4.31'; +our $VERSION='4.32'; use CGI::Util qw(rearrange unescape escape); use overload '""' => \&as_string, 'cmp' => \&compare, 'fallback' => 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/lib/CGI/File/Temp.pm new/CGI-4.32/lib/CGI/File/Temp.pm --- old/CGI-4.31/lib/CGI/File/Temp.pm 2016-06-14 09:06:53.000000000 +0200 +++ new/CGI-4.32/lib/CGI/File/Temp.pm 2016-07-19 08:58:32.000000000 +0200 @@ -3,7 +3,7 @@ # you use it directly and your code breaks horribly. package CGI::File::Temp; -$CGI::File::Temp::VERSION = '4.31'; +$CGI::File::Temp::VERSION = '4.32'; use parent File::Temp; use parent Fh; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/lib/CGI/HTML/Functions.pod new/CGI-4.32/lib/CGI/HTML/Functions.pod --- old/CGI-4.31/lib/CGI/HTML/Functions.pod 2016-05-23 09:58:56.000000000 +0200 +++ new/CGI-4.32/lib/CGI/HTML/Functions.pod 2016-07-19 08:32:45.000000000 +0200 @@ -304,7 +304,7 @@ to execute when the page is respectively opened and closed by the browser. Usually these parameters are calls to functions defined in the B<-script> field: - $query = CGI->new; + $q = CGI->new; print header; $JSCRIPT = <<END; // Ask a silly question @@ -658,8 +658,8 @@ into your fields. If you wish to turn off automatic escaping, call the autoEscape() method with a false value immediately after creating the CGI object: - $query = CGI->new; - $query->autoEscape(0); + $q = CGI->new; + $q->autoEscape(0); Note that autoEscape() is exclusively used to effect the behavior of how some CGI.pm HTML generation functions handle escaping. Calling escapeHTML() @@ -1908,8 +1908,8 @@ As a shortcut, you can interpolate the entire CGI object into a string and it will be replaced with the a nice HTML dump shown above: - $query=CGI->new; - print "<h2>Current Values</h2> $query\n"; + $q=CGI->new; + print "<h2>Current Values</h2> $q\n"; =head1 BUGS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/lib/CGI/Pretty.pm new/CGI-4.32/lib/CGI/Pretty.pm --- old/CGI-4.31/lib/CGI/Pretty.pm 2016-06-14 09:06:54.000000000 +0200 +++ new/CGI-4.32/lib/CGI/Pretty.pm 2016-07-19 08:58:32.000000000 +0200 @@ -6,7 +6,7 @@ use if $] >= 5.019, 'deprecate'; use CGI (); -$CGI::Pretty::VERSION = '4.31'; +$CGI::Pretty::VERSION = '4.32'; $CGI::DefaultClass = __PACKAGE__; @CGI::Pretty::ISA = qw( CGI ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/lib/CGI/Push.pm new/CGI-4.32/lib/CGI/Push.pm --- old/CGI-4.31/lib/CGI/Push.pm 2016-06-14 09:06:55.000000000 +0200 +++ new/CGI-4.32/lib/CGI/Push.pm 2016-07-19 08:58:32.000000000 +0200 @@ -6,7 +6,7 @@ use warnings; #/; -$CGI::Push::VERSION='4.31'; +$CGI::Push::VERSION='4.32'; use CGI; use CGI::Util 'rearrange'; @ISA = ('CGI'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/lib/CGI/Util.pm new/CGI-4.32/lib/CGI/Util.pm --- old/CGI-4.31/lib/CGI/Util.pm 2016-06-14 09:06:58.000000000 +0200 +++ new/CGI-4.32/lib/CGI/Util.pm 2016-07-19 08:58:32.000000000 +0200 @@ -6,7 +6,7 @@ our @EXPORT_OK = qw(rearrange rearrange_header make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic); -our $VERSION = '4.31'; +our $VERSION = '4.32'; our $_EBCDIC = "\t" ne "\011"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/lib/CGI.pm new/CGI-4.32/lib/CGI.pm --- old/CGI-4.31/lib/CGI.pm 2016-06-14 09:07:04.000000000 +0200 +++ new/CGI-4.32/lib/CGI.pm 2016-07-19 08:58:32.000000000 +0200 @@ -8,7 +8,7 @@ use warnings; #/; -$CGI::VERSION='4.31'; +$CGI::VERSION='4.32'; use CGI::Util qw(rearrange rearrange_header make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/lib/CGI.pod new/CGI-4.32/lib/CGI.pod --- old/CGI-4.31/lib/CGI.pod 2016-05-23 09:58:56.000000000 +0200 +++ new/CGI-4.32/lib/CGI.pod 2016-07-19 08:32:45.000000000 +0200 @@ -13,6 +13,7 @@ use CGI; + # create a CGI object (query) for use my $q = CGI->new; # Process an HTTP request @@ -21,8 +22,8 @@ my $fh = $q->upload('file_field'); - my $riddle = $query->cookie('riddle_name'); - my %answers = $query->cookie('answers'); + my $riddle = $q->cookie('riddle_name'); + my %answers = $q->cookie('answers'); # Prepare various HTTP responses print $q->header(); @@ -222,10 +223,10 @@ =head2 Creating a new query object (object-oriented style) - my $query = CGI->new; + my $q = CGI->new; This will parse the input (from POST, GET and DELETE methods) and store -it into a perl5 object called $query. Note that because the input parsing +it into a perl5 object called $q. Note that because the input parsing happens at object instantiation you have to set any CGI package variables that control parsing B<before> you call CGI->new. @@ -234,7 +235,7 @@ =head2 Creating a new query object from an input file - my $query = CGI->new( $input_filehandle ); + my $q = CGI->new( $input_filehandle ); If you provide a file handle to the new() method, it will read parameters from the file (or STDIN, or whatever). The file can be in any of the forms @@ -257,7 +258,7 @@ You can also initialize the query object from a hash reference: - my $query = CGI->new( { + my $q = CGI->new( { 'dinosaur' => 'barney', 'song' => 'I love you', 'friends' => [ qw/ Jessica George Nancy / ] @@ -265,7 +266,7 @@ or from a properly formatted, URL-escaped query string: - my $query = CGI->new('dinosaur=barney&color=purple'); + my $q = CGI->new('dinosaur=barney&color=purple'); or from a previously existing CGI object (currently this clones the parameter list, but none of the other object-specific fields, such as autoescaping): @@ -283,16 +284,16 @@ =head2 Fetching a list of keywords from the query - my @keywords = $query->keywords + my @keywords = $q->keywords If the script was invoked as the result of an ISINDEX search, the parsed keywords can be obtained as an array using the keywords() method. =head2 Fetching the names of all the parameters passed to your script - my @names = $query->multi_param + my @names = $q->multi_param - my @names = $query->param + my @names = $q->param If the script was invoked with a parameter list (e.g. "name1=value1&name2=value2&name3=value3"), the param() / multi_param() @@ -308,11 +309,11 @@ =head2 Fetching the value or values of a single named parameter - my @values = $query->multi_param('foo'); + my @values = $q->multi_param('foo'); -or- - my $value = $query->param('foo'); + my $value = $q->param('foo'); Pass the param() / multi_param() method a single argument to fetch the value of the named parameter. If the parameter is multivalued (e.g. from multiple @@ -331,13 +332,13 @@ my %user_info = ( id => 1, - name => $query->param('name'), + name => $q->param('name'), ); The fix for the above is to force scalar context on the call to ->param by prefixing it with "scalar" - name => scalar $query->param('name'), + name => scalar $q->param('name'), If you call param() in list context with an argument a warning will be raised by CGI.pm, you can disable this warning by setting $CGI::LIST_CONTEXT_WARN to 0 @@ -351,7 +352,7 @@ =head2 Setting the value(s) of a named parameter - $query->param('foo','an','array','of','values'); + $q->param('foo','an','array','of','values'); This sets the value for the named parameter 'foo' to an array of values. This is one way to change the value of a field AFTER the script has been invoked @@ -360,21 +361,21 @@ param() also recognizes a named parameter style of calling described in more detail later: - $query->param( + $q->param( -name => 'foo', -values => ['an','array','of','values'], ); -or- - $query->param( + $q->param( -name => 'foo', -value => 'the value', ); =head2 Appending additional values to a named parameter - $query->append( + $q->append( -name =>'foo', -values =>['yet','more','values'], ); @@ -386,7 +387,7 @@ =head2 Importing all parameters into a namespace - $query->import_names('R'); + $q->import_names('R'); This creates a series of variables in the 'R' namespace. For example, $R::foo, @R:foo. For keyword lists, a variable @R::keywords will appear. If no namespace @@ -403,7 +404,7 @@ =head2 Deleting a parameter completely - $query->delete('foo','bar','baz'); + $q->delete('foo','bar','baz'); This completely clears a list of parameters. It sometimes useful for resetting parameters that you don't want passed down between script invocations. @@ -413,7 +414,7 @@ =head2 Deleting all parameters - $query->delete_all(); + $q->delete_all(); This clears the CGI object completely. It might be useful to ensure that all the defaults are taken when you create a fill-out form. @@ -427,11 +428,11 @@ be returned as-is in a parameter named POSTDATA. To retrieve it, use code like this: - my $data = $query->param('POSTDATA'); + my $data = $q->param('POSTDATA'); Likewise if PUTed data can be retrieved with code like this: - my $data = $query->param('PUTDATA'); + my $data = $q->param('PUTDATA'); (If you don't know what the preceding means, worry not. It only affects people trying to use CGI for XML processing and other specialized tasks) @@ -485,7 +486,7 @@ =head2 Saving the state of the script to a file - $query->save(\*FILEHANDLE) + $q->save(\*FILEHANDLE) This will write the current state of the form to the provided filehandle. You can read it back in by providing a filehandle to the new() method. Note that @@ -830,8 +831,10 @@ The redirect() method redirects the browser to a different URL. If you use redirection like this, you should B<not> print out a header as well. -You should always use full URLs (including the http: or ftp: part) in -redirection requests. Relative URLs will not work correctly. +You are advised to use full URLs (absolute with respect to current URL or even +including the http: or ftp: part) in redirection requests as relative URLs +are resolved by the user agent of the client so may not do what you want or +expect them to do. You can also use named arguments: @@ -1027,8 +1030,8 @@ can access the temporary file directly. You can access the temp file for a file upload by passing the file name to the tmpFileName() method: - my $filehandle = $query->upload( 'uploaded_file' ); - my $tmpfilename = $query->tmpFileName( $filehandle ); + my $filehandle = $q->upload( 'uploaded_file' ); + my $tmpfilename = $q->tmpFileName( $filehandle ); As with ->uploadInfo, using the reference returned by ->upload or ->param is preferred, although unlike ->uploadInfo, plain filenames also work if possible @@ -1280,7 +1283,7 @@ B<-value> parameter. This example uses the object-oriented form: my $riddle = $q->cookie('riddle_name'); - my %answers = $query->cookie('answers'); + my %answers = $q->cookie('answers'); Cookies created with a single scalar value, such as the "riddle_name" cookie, will be returned in that form. Cookies with array and hash values can also be diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CGI-4.31/lib/Fh.pm new/CGI-4.32/lib/Fh.pm --- old/CGI-4.31/lib/Fh.pm 2016-06-14 09:07:09.000000000 +0200 +++ new/CGI-4.32/lib/Fh.pm 2016-07-19 08:58:32.000000000 +0200 @@ -5,6 +5,6 @@ use strict; use warnings; -$Fh::VERSION = '4.31'; +$Fh::VERSION = '4.32'; 1;
