view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

libtracer.\$(DLEXT): libtracer\$(OBJ_EXT)
	ld -o \$@ -shared \$^ -ldl --version-script Versions.def
	\$(CHMOD) \$(PERM_RWX) \$@

EOF
}

WriteMakefile(
    'dist'	=> {
	            PREOP	=> 'chmod -R u=rwX,go=rX . ;',
	            COMPRESS	=> 'gzip -9v',
	            SUFFIX	=> '.gz',
	           },
    'NAME'	=> 'App::Manager',
    'VERSION_FROM' => 'Manager.pm',
    'LIBS'	=> [''],
    'DEFINE'	=> "'-DLIBTRACER_SO=\"\$(INSTALLSITEARCH)/libtracer.\$(DLEXT)\"' '-DLIBDIR=\"$LIBDIR\"'",
    'EXE_FILES'	=> ['appman'],
    'INC'	=> '',
    'PREREQ_PM'	=> {

Manager.pm  view on Meta::CPAN

         symlink $stat->{symlink},$stat->{path}
            or die "Unable to recreate symbolic link '$stat->{path}' => '$stat->{symlink}': $!\n";
      } elsif (S_ISDIR $stat->{mode}) {
         remove $stat->{path};
         mkdir $stat->{path},$stat->{mode} & 07777
            or die "Unable to recreate directory '$stat->{path}': $!\n";
      } else {
         die "FATAL: don't know how to check in $stat->{path}.\n";
      }
      unless (S_ISLNK $stat->{mode}) {
         chmod $stat->{mode} & 07777,$stat->{path}
            or die "Unable to change mode for '$stat->{path}': $!\n";
         chown $stat->{uid},$stat->{gid},$stat->{path}
            or warn "Unable to change user and group id for '$stat->{path}': $!\n";
         utime $stat->{atime},$stat->{mtime},$stat->{path}
            or warn "Unable to change atime and mtime for '$stat->{path}': $!\n";
      }
   }
}

# this is safe as long as we don't sync too early