view release on metacpan or  search on metacpan

bin/mfile-www  view on Meta::CPAN

    # check if the "new" already exist and are symlinks
    return ( -l $sp{new_css} and -l $sp{new_corejs} );
}
    
sub _create_symlink {
    my ( $old, $new ) = @_;
    die "Need to be root to create symlink" unless $sharedir_writable;
    my ( undef, $path, $file ) = File::Spec->splitpath( $new );
    make_path( $path );
    symlink( $old, $new ) ;
    if ( ! stat( $new ) ) {
        unlink( $new );
        die "Could not create symlink $old -> $new";
    }
    return;
}

#
# MAIN
#
print "App::MFILE::WWW ver. $VERSION\n";