cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm

[stas]

stas        01/12/13 21:12:13

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  s/catfile/catdir/ when working with dirs
  Submitted by: Barrie Slaymaker <[EMAIL PROTECTED]>
  Reviewed by:  stas
  
  Revision  Changes    Path
  1.39      +3 -3      modperl-2.0/lib/ModPerl/WrapXS.pm
  
  Index: WrapXS.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
  retrieving revision 1.38
  retrieving revision 1.39
  diff -u -r1.38 -r1.39
  --- WrapXS.pm 2001/12/14 04:51:55     1.38
  +++ WrapXS.pm 2001/12/14 05:12:13     1.39
  @@ -11,7 +11,7 @@
   use File::Path qw(rmtree mkpath);
   use Cwd qw(fastcwd);
   use Data::Dumper;
  -use File::Spec::Functions qw(catfile);
  +use File::Spec::Functions qw(catfile catdir);
   
   our $VERSION = '0.01';
   
  @@ -221,7 +221,7 @@
   sub prepare {
       my $self = shift;
       $self->{DIR} = 'WrapXS';
  -    $self->{XS_DIR} = catfile fastcwd(), 'xs';
  +    $self->{XS_DIR} = catdir fastcwd(), 'xs';
   
       if (-e $self->{DIR}) {
           rmtree([$self->{DIR}], 1, 1);
  @@ -243,7 +243,7 @@
   
       my $dirname = $self->class_dirname($class);
       my $dir = ($dirname =~ m:/: and $dirname !~ m:^$self->{DIR}:) ?
  -      catfile($self->{DIR}, $dirname) : $dirname;
  +      catdir($self->{DIR}, $dirname) : $dirname;
   
       mkpath [$dir], 1, 0755 unless -d $dir;