view release on metacpan or  search on metacpan

scriptdist  view on Meta::CPAN

		$show_message->( "dir_sep is $Defaults{dir_sep}\n" );
		$show_message->( "Input is $input\n" );
		my( $path ) = $input =~ m/\Q$Defaults{rc_dir}$Defaults{dir_sep}\E(.*)/g;
		$show_message->( "Path is $path\n" );

		my @path = File::Spec->splitdir( $path );
		my $file = pop @path;
		$show_message->( "File is $file\n" );

		if( @path ) {
			local @ARGV = catfile( $Defaults{directory}, @path );
			ExtUtils::Command::mkpath unless -d $ARGV[0];
			}

		my $output = catfile( $Defaults{directory}, $path );
		$show_message->( "Output is $file\n" );
		copy( $input, $output, \%Defaults );
		}
	}