update changelog
[pkg-perl/packages/libcgi-pm-perl.git] / debian / patches / do-not-use-shellwords.patch
1 Description: Replace the use of the deprecated shellwords.pl with
2  Text::ParseWords (which is what is done anyways).
3 Author: Alessandro Ghedini <al3xbio@gmail.com>
4 Origin: vendor
5 Forwarded: https://github.com/markstos/CGI.pm/pull/10
6 Last-Update: 2011-11-12
7
8 --- a/lib/CGI.pm
9 +++ b/lib/CGI.pm
10 @@ -3530,11 +3530,11 @@
11      if ($DEBUG && @ARGV) {
12         @words = @ARGV;
13      } elsif ($DEBUG > 1) {
14 -       require "shellwords.pl";
15 +       require Text::ParseWords;
16         print STDERR "(offline mode: enter name=value pairs on standard input; press ^D or ^Z when done)\n";
17         chomp(@lines = <STDIN>); # remove newlines
18         $input = join(" ",@lines);
19 -       @words = &shellwords($input);    
20 +       @words = &Text::ParseWords::old_shellwords($input);    
21      }
22      for (@words) {
23         s/\\=/%3D/g;