You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
1.2 KiB
34 lines
1.2 KiB
Index: FileHandle-Unget-0.1634/inc/Module/Install/Bugtracker.pm |
|
--- FileHandle-Unget-0.1634/inc/Module/Install/Bugtracker.pm.orig 2018-07-12 05:26:10.000000000 +0200 |
|
+++ FileHandle-Unget-0.1634/inc/Module/Install/Bugtracker.pm 2018-07-12 17:45:22.564522000 +0200 |
|
@@ -10,13 +10,9 @@ |
|
sub auto_set_bugtracker { |
|
my $self = shift; |
|
if ($self->name) { |
|
- $self->include_deps('URI::Escape'); |
|
- |
|
- require URI::Escape; |
|
- |
|
$self->bugtracker( |
|
sprintf 'http://rt.cpan.org/Public/Dist/Display.html?Name=%s', |
|
- URI::Escape::uri_escape($self->name), |
|
+ $self->name, |
|
); |
|
} else { |
|
warn "can't set bugtracker if 'name' is not set\n"; |
|
Index: IPC-ShareLite-0.17/Makefile.PL |
|
--- IPC-ShareLite-0.17/Makefile.PL.orig 2009-03-09 22:22:54.000000000 +0100 |
|
+++ IPC-ShareLite-0.17/Makefile.PL 2018-07-12 07:44:41.396056000 +0200 |
|
@@ -55,11 +55,10 @@ |
|
|
|
my @exclude = qw( Devel::CheckLib IO::CaptureOutput ); |
|
my $pad = ' ' x 4; |
|
- die "Can't parse Makefile fragment" |
|
- unless $lines[-2] =~ /^([^"']*(["'])).*?(\2[^"']*)$/; |
|
splice @lines, -1, 0, map { "$1$_$3" } ( |
|
'no_index:', "${pad}package:", map { "${pad}${pad}- $_" } @exclude |
|
); |
|
|
|
return join "\n", @lines; |
|
} |
|
+
|
|
|