Author: hmbrand
Date: Mon Sep 14 05:17:20 2009
New Revision: 13337
Modified:
dbi/trunk/git-svn-vsn.pl
Log:
make test under a git svn clone:
test_dynamic :: pure_all
perl git-svn-vsn.pl
PERL_DL_NONLAZY=1 $(FULLPERLRUN) "-MExtUtils::Command::MM" "-e"
"test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES)
PERL_DL_NONLAZY=1 $(FULLPERLRUN) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)"
$(TEST_FILE)
git co `cat git-svn-modlist`
rm git-svn-modlist
Don't know if it would make sense to include this in Makefile.PL
It's not my intention to enable distributions from git
Modified: dbi/trunk/git-svn-vsn.pl
==============================================================================
--- dbi/trunk/git-svn-vsn.pl (original)
+++ dbi/trunk/git-svn-vsn.pl Mon Sep 14 05:17:20 2009
@@ -4,9 +4,10 @@
use warnings;
use File::Find;
-#use DateTime;
use DateTime::Format::DateParse;
+open my $ml, ">", "git-svn-modlist";
+
find (sub {
-f $_ && $_ =~ m/\.pm$/ or return;
my $f = $_;
@@ -32,4 +33,6 @@
print $fh $pm;
close $fh;
utime $st[8], $st[9], $f;
+
+ print $ml "$File::Find::name\n";
}, "lib");
