From 26cc2d2f6c0fde3c564226c7e854e5011d7333e7 Mon Sep 17 00:00:00 2001
From: Emmanuel Seyman <[email protected]>
Date: Thu, 20 Aug 2015 15:43:32 +0200
Subject: Apply patch to adapt to Module::Starter 1.71 (#1195343)


diff --git 
a/CGI-Application-Structured-Tools-0.015-Adapt-to-Module-Starter-1.71.patch 
b/CGI-Application-Structured-Tools-0.015-Adapt-to-Module-Starter-1.71.patch
new file mode 100644
index 0000000..a81517f
--- /dev/null
+++ b/CGI-Application-Structured-Tools-0.015-Adapt-to-Module-Starter-1.71.patch
@@ -0,0 +1,29 @@
+diff -up ./lib/CGI/Application/Structured/Tools/Starter.pm.orig 
./lib/CGI/Application/Structured/Tools/Starter.pm
+--- ./lib/CGI/Application/Structured/Tools/Starter.pm.orig     2015-08-20 
12:42:45.029820837 +0200
++++ ./lib/CGI/Application/Structured/Tools/Starter.pm  2015-08-20 
12:44:12.274294867 +0200
+@@ -160,7 +160,9 @@ sub create_distro {
+       my @files2 = 
+       my $file = File::Spec->catfile( $self->{basedir}, 'MANIFEST' );
+       open my $fh, '>', $file or die "Can't open file $file: $!\n";
+-      map{print $fh "$_\n"} grep { $_ ne 't/boilerplate.t' } @files;    
++        foreach my $file ( grep !m{^\Qt/boilerplate.t\E$}, sort @files ) {
++            print {$fh} "$file\n" or croak "$OS_ERROR\n";
++        }
+       close $fh or die "Can't close file $file: $!\n";        
+                           }
+       );
+@@ -184,13 +186,7 @@ sub create_t {
+     #
+     # 
+     #
+-    my %t_files = $self->t_guts(@modules);
+-
+-    my @files = map { 
+-      $self->_create_t( $_, 
+-                        $t_files{$_} 
+-          ) 
+-    } keys %t_files;
++    my @files = $self->SUPER::create_t(@modules);
+ 
+     # This next part is for the static files dir t/www
+     my @dirparts = ( $self->{basedir}, 't', 'www' );
diff --git a/perl-CGI-Application-Structured-Tools.spec 
b/perl-CGI-Application-Structured-Tools.spec
index 2775771..cc405e3 100644
--- a/perl-CGI-Application-Structured-Tools.spec
+++ b/perl-CGI-Application-Structured-Tools.spec
@@ -1,11 +1,12 @@
 Name:           perl-CGI-Application-Structured-Tools
 Version:        0.015
-Release:        9%{?dist}
+Release:        10%{?dist}
 Summary:        Tools to generate and maintain CGI::Application::Structured 
based web apps
 License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/CGI-Application-Structured-Tools/
 Source0:        
http://www.cpan.org/authors/id/V/VA/VANAMBURG/CGI-Application-Structured-Tools-%{version}.tar.gz
+Patch0:         
CGI-Application-Structured-Tools-0.015-Adapt-to-Module-Starter-1.71.patch
 BuildArch:      noarch
 BuildRequires:  perl(CGI::Application::Structured)
 BuildRequires:  perl(DBIx::Class::Schema::Loader)
@@ -38,6 +39,7 @@ and helper scripts to provide a rapid development environment.
 
 %prep
 %setup -q -n CGI-Application-Structured-Tools-%{version}
+%patch0
 
 cat << \EOF > %{name}-req
 #!/bin/sh
@@ -85,6 +87,9 @@ make test
 %{_bindir}/cas-starter.pl
 
 %changelog
+* Thu Aug 20 2015 Emmanuel Seyman <[email protected]> - 0.015-10
+- Apply patch to adapt to Module::Starter 1.71 (#1195343)
+
 * Thu Jun 18 2015 Fedora Release Engineering <[email protected]> 
- 0.015-9
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild
 
-- 
cgit v0.10.2


        
http://pkgs.fedoraproject.org/cgit/perl-CGI-Application-Structured-Tools.git/commit/?h=f23&id=26cc2d2f6c0fde3c564226c7e854e5011d7333e7
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
[email protected]
https://admin.fedoraproject.org/mailman/listinfo/perl-devel

Reply via email to