freebsd-ports/www/p5-Gantry/files/patch-Build.PL

--- Build.PL.orig	Tue Dec 19 15:47:23 2006
+++ Build.PL	Tue Dec 19 15:47:48 2006
@@ -132,101 +132,6 @@
 
     }
 
-    sub ACTION_install {
-        my $self = shift;
-        
-        my $p = $self->{properties};        
-        
-        my $initf = "$p->{install_sets}{site}{lib}/$p->{dist_name}/Init.pm";
-                
-        $self->SUPER::ACTION_install();
-
-        my $tmpl_dir = $self->notes( 'install_web_directory' );
-            
-        if( $tmpl_dir && $tmpl_dir ne '__skip__' ) {
-
-            # write Init.pm file with install options
-
-            my $init_pkg = << "EO_INIT";
-package Gantry::Init;
-use strict;
-
-sub base_root {
-    return "$tmpl_dir";
-}
-1;
-
-=head1 NAME
-
-Gantry::Init - stores things the user provided to Build.PL during install
-
-=head1 SYNOPSIS
-
-    use Gantry::Init;
-    my \$base_root = Gantry::Init->base_root();
-
-=head1 Methods
-
-=head2 base_root
-
-Returns the local system path to Gantry's default templates.  This usually
-becomes the last item in the Template Toolkit template path.
-
-=head1 AUTHOR
-
-Auto-generated by Build.PL
-
-=cut
-
-EO_INIT
-
-            open( INIT_FILE, "> blib/lib/Gantry/Init.pm" ) or die "$!";
-            print INIT_FILE $init_pkg;
-            close INIT_FILE;
-
-            open( INIT_FILE, "> $initf" ) or die "$!";
-            print INIT_FILE $init_pkg;
-            close INIT_FILE;
-            
-            eval {  
-                # this should have been done during perl Build.PL
-                if ( not -d $tmpl_dir ) {
-                    File::Path::mkpath( $tmpl_dir );
-                }
-            };
-            if ( $@ ) {
-                print "Error: unable to create directory $tmpl_dir\n";
-                $@ =~ s/ at .+?$//;
-                die( "$@\n" );
-            }
-            
-            my $blib_tmpl_dir = File::Spec->catdir(
-                $self->blib, 'web', $p->{build_web_directory} 
-            );  
-            
-            my $num;
-            eval {
-                require File::Copy::Recursive;
-                import File::Copy::Recursive 'dircopy';
-
-                $num = dircopy($blib_tmpl_dir, $tmpl_dir);
-            };
-            if ( $@ ) {
-                print "\nError coping templates:\n";
-                print $@ . "\n";
-            }
-            else {
-                print "\n$num Gantry templates copied to $tmpl_dir\n";
-            }
-        }
-        else {
-            print "SKIPPING WEB CONTENT INSTALL\n";
-        }
-        
-        print "\n";
-
-    } # end ACTION_install
-
     sub process_web_files {
         my $self = shift;
         my $files = $self->find_web_files;