my $Cwd = cwd();
my $Verbose = 1;
-my $ExcludeRe = $Opts->{e} ? qr/$Opts->{e}/ : undef;
+my $ExcludeRe = $Opts->{e} ? qr/$Opts->{e}/i : undef;
my $Debug = $Opts->{v} || 0;
my $RunDiff = $Opts->{d} || 0;
my $PkgDir = $Opts->{p} || cwd();
unless ( $status =~ /nothing to commit/ims ) {
die "\nWorking directory not clean. Stopping.\n";
}
- system( "git co -b $BranchName blead" )
+ system( "git checkout -b $BranchName blead" )
and die "Could not create branch '$BranchName': $?";
print "done\n" if $Verbose;
@LibFiles = map { chomp; $_ }
### should we get rid of this file?
grep { $ExcludeRe && $_ =~ $ExcludeRe
- ? do { warn "Removing $_\n";
- system("rm $_") and die "rm '$_' failed: $?";
+ ? do { warn "Removing $Repo/$_\n";
+ system("rm $Repo/$_") and die "rm '$Repo/$_' failed: $?";
undef
}
: 1
- } `find lib -type f`
+ } `find $Repo/lib -type f`
or die "Could not detect library files\n";
print "done\n" if $Verbose;
push @manifest, values %pkg_files;
- { chmod 0755, $file;
+ { chmod 0644, $file;
open my $fh, ">$file" or die "Could not open $file for writing: $!";
#print $fh sort { lc $a cmp lc $b } @manifest;
### XXX stolen from pod/buildtoc:sub do_manifest