Changeset 21437

Show
Ignore:
Timestamp:
10/16/08 22:05:52 (5 years ago)
Author:
yappo
Message:

pack の時に OS の差異を気にしないようにする

Location:
lang/perl/Module-Setup/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Module-Setup/trunk/lib/Module/Setup.pm

    r21435 r21437  
    317317        if ($file->is_dir) { 
    318318            push @{ $template }, +{ 
    319                 dir => "$file", 
     319                dir => join('/', $file->dir_list), 
    320320            }; 
    321321        } else { 
    322322            my $data = $type->path_to($file)->slurp; 
    323323            push @{ $template }, +{ 
    324                 $path_name => "$file", 
     324                $path_name => join('/', $file->dir->dir_list, $file->basename), 
    325325                template   => $data, 
    326326            }; 

  • lang/perl/Module-Setup/trunk/t/020_run/pack.t

    r21435 r21437  
    5353--- regexp_1: package Foo::Bar::Flavor; 
    5454--- regexp_2: Makefile.PL 
    55 --- regexp_3: lib 
     55--- regexp_3: lib/____var-module_path-var____.pm 
    5656 
    5757===