filemorph

Check-in [243ef9b378]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Add build.pl file
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:243ef9b378ed4d74b531ef7627f55c73bfd976cb
User & Date: kevin 2015-11-17 03:37:15
Context
2015-11-18
03:40
Adjust start menu item for Windows check-in: 19d98f7524 user: kevin tags: trunk
2015-11-17
03:37
Add build.pl file check-in: 243ef9b378 user: kevin tags: trunk
01:00
Fix serious crash in Windows build check-in: de77c8d1dc user: kevin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Added build.pl.

            1  +use ExtUtils::Embed;
            2  +
            3  +my $gcc_cmd = join( ' ' , 'gcc -Wall -o   FileMorph icons.o versioninfo.o filemorph.c -lShlwapi' , &ccopts , &ldopts );
            4  +print STDOUT $gcc_cmd , "\n";
            5  +system( $gcc_cmd );
            6  +
            7  +#-mwindows

Changes to filemorph.pl.

     1      1   # FileMorph: Rename files, edit attributes
     2      2   
     3      3   #Copyright (C) 2015 WordTech Communications LLC
     4      4   
     5      5   #MIT license
     6      6   
     7      7   #let's get started
     8         - 
            8  +
     9      9   use FindBin qw($Bin);
    10     10   use Config;
    11     11   use File::Spec::Functions;
    12     12   use File::Copy::Recursive qw(dircopy );
    13     13   use Env qw(HOME);
    14     14   use File::Path qw(remove_tree);
    15     15   use File::Copy::Recursive qw (rmove);