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: |
243ef9b378ed4d74b531ef7627f55c73 |
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
Added build.pl.
> > > > > > > | 1 2 3 4 5 6 7 | use ExtUtils::Embed; my $gcc_cmd = join( ' ' , 'gcc -Wall -o FileMorph icons.o versioninfo.o filemorph.c -lShlwapi' , &ccopts , &ldopts ); print STDOUT $gcc_cmd , "\n"; system( $gcc_cmd ); #-mwindows |
Changes to filemorph.pl.
1 2 3 4 5 6 7 | # FileMorph: Rename files, edit attributes #Copyright (C) 2015 WordTech Communications LLC #MIT license #let's get started | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | # FileMorph: Rename files, edit attributes #Copyright (C) 2015 WordTech Communications LLC #MIT license #let's get started use FindBin qw($Bin); use Config; use File::Spec::Functions; use File::Copy::Recursive qw(dircopy ); use Env qw(HOME); use File::Path qw(remove_tree); use File::Copy::Recursive qw (rmove); |
︙ | ︙ |