Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

treat .git as .svn (author, bla...)

  • Loading branch information...
commit c99dcdbfef0f4993df7f1b17f90ec2d9b360d5ee 1 parent 843aec5
Reini Urban authored
4  ByteLoader/Makefile.PL
@@ -4,8 +4,8 @@ my $core = grep { $_ eq 'PERL_CORE=1' } @ARGV;
4 4
 my $ccflags   = $Config{ccflags};
5 5
 my $lddlflags = $Config{lddlflags};
6 6
 
7  
-if ( -d ".svn" ) {
8  
-  $ccflags .= " -ansi -Wall -Wextra" if $Config{cc} =~ /gcc/;
  7
+if ( -d '.svn' or -d '.git' ) {
  8
+  $ccflags .= ' -ansi -Wall -Wextra' if $Config{cc} =~ /gcc/;
9 9
 }
10 10
 if ($] < 5.007) {
11 11
   # We are not called by ../Makefile.PL, but be sure about that for now.
4  Changes
@@ -4,12 +4,14 @@
4 4
 	and worked quite fine with Perl 5.6 and 5.8
5 5
 
6 6
 1.37	2011-xx-xx rurban
7  
-	Save %main:: stashes
  7
+	Save %main:: stashes. Switched to git, added github mirror
8 8
 	* C: issue79: save stashes also, but only directly under %main::
9 9
 	  and values which are also stashes to avoid a second walker
10 10
 	  besides savecv, and thus unneeded territory; B::STASHGV (46)
11 11
 	New -fno-stash with -O2 to omit stashes, which are rarely needed
12 12
 	* CC (1.12) allow overriding of -f<opt> B::C flags
  13
+	* META.yml: remove from MANIFEST and repo, let make dist
  14
+	  autogenerate it
13 15
 	* t/TESTS: changed  test 46 (Exporter:: and other stashes in
14 16
 	  %main:: stash) to cover issue 79.
15 17
 	  use Exporter; print q(ok) if %main::Exporter::
1  MANIFEST
@@ -37,7 +37,6 @@ C.xs
37 37
 Changes
38 38
 Copying
39 39
 MANIFEST
40  
-META.yml
41 40
 Makefile.PL
42 41
 NOTES
43 42
 README
7  Makefile.PL
@@ -100,7 +100,8 @@ sub headerpath {
100 100
 }
101 101
 
102 102
 # Check for Doug Lea's dlmalloc version, or ptmalloc2 included in glibc
103  
-# or an extra ptmalloc3.
  103
+# or the best: ptmalloc3 with independent_comalloc().
  104
+# http://www.malloc.de/malloc/ptmalloc3-current.tar.gz
104 105
 # This improves -fav-init startup speed dramatically (18% tested).
105 106
 # ptmalloc3 needs #include <malloc-2.8.3.h>, but we don't want to clash
106 107
 # with an existing malloc.h from perl.h, so we declare it by ourselves.
@@ -165,7 +166,7 @@ package MY;
165 166
 
166 167
 sub libscan {
167 168
     # Ignore temp testing files
168  
-    return 0 if $_[1] =~ /^(.svn|jit.*|i386|.*\.orig|bytecode.*\.pl|c?ccode.*|regen_lib\.pl)$/;
  169
+    return 0 if $_[1] =~ /^(\.git|\.svn|jit.*|i386|.*\.orig|bytecode.*\.pl|c?ccode.*|regen_lib\.pl)$/;
169 170
     return 0 if $_[1] =~ /\.svn|~/; # needed for msys perl5.6
170 171
     # Ignore Bytecode on 5.6 for now. The 5.6 CORE module produces better code (until fixed :)
171 172
     # Not even the Byteloader works for 5.6 assembled code. The Disassembler does not stop at ret.
@@ -195,7 +196,7 @@ sub ccflags {
195 196
     my $ccflags = shift->SUPER::ccflags(@_);
196 197
     $ccflags .= " -DHAVE_INDEPENDENT_COMALLOC" if $have_independent_comalloc;
197 198
     $ccflags .= $extra_cflags if $extra_cflags;
198  
-    return $ccflags unless -d ".svn";
  199
+    return $ccflags unless -d ".svn" or -d ".git";
199 200
     # Recommended by http://www.network-theory.co.uk/docs/gccintro/gccintro_32.html
200 201
     # -ansi -pedantic -Wall -W -Wconversion -Wshadow -Wcast-qual -Wwrite-strings (-W => -WExtra)
201 202
     $ccflags .= " -ansi -pedantic -Wall -Wextra -Wconversion -Wshadow -Wcast-qual -Wwrite-strings"
14  README
@@ -6,6 +6,8 @@
6 6
 Homepage: http://www.perl-compiler.org/
7 7
 Releases: http://search.cpan.org/dist/B-C/
8 8
 Code: http://code.google.com/p/perl-compiler/
  9
+  git clone https://code.google.com/p/perl-compiler/
  10
+was previously:
9 11
   svn checkout http://perl-compiler.googlecode.com/svn/trunk/ perl-compiler
10 12
 
11 13
 INSTALL
@@ -94,13 +96,11 @@ fail in mysterious ways and give wrong answers rather than just crash
94 96
 in boring ways. CC is still on the experimental level. Please use your 
95 97
 test suite.
96 98
 
97  
-If your program uses classes which define methods (or other
98  
-subs which are not exported and not apparently used until
99  
-runtime) then you'll need to use -u compile-time options
100  
-(see the NOTES file) to force the subs to be
101  
-compiled. Future releases will probably default the other
102  
-way, do more auto-detection and provide more fine-grained
103  
-control.
  99
+If your program uses classes which define methods (or other subs which
  100
+are not exported and not apparently used until runtime) then you'll
  101
+need to use -u compile-time options (see the NOTES file) to force the
  102
+subs to be compiled. Future releases will probably default the other
  103
+way, do more auto-detection and provide more fine-grained control.
104 104
 
105 105
 Since compiled executables need linking with libperl, you
106 106
 may want to turn libperl.a into a shared library if your
1  README.alpha
@@ -26,7 +26,6 @@
26 26
 
27 27
 Releases are at http://search.cpan.org/dist/B-C/
28 28
 Code is now at http://code.google.com/p/perl-compiler/
29  
-  svn checkout http://perl-compiler.googlecode.com/svn/trunk/ perl-compiler-read-only
30 29
 
31 30
 CHANGES
32 31
 
5  perloptree.pod
Source Rendered
@@ -1370,6 +1370,9 @@ is working on L<Jit>.
1370 1370
 
1371 1371
 The best source of information is the source. It is very well documented.
1372 1372
 
  1373
+There are some pod files from talks and workshops in F<ramblings/>.
  1374
+From YAPC EU 2010 there is a good screencast at L<http://vimeo.com/14058377>.
  1375
+
1373 1376
 Simon Cozens has posted the course material to NetThink's
1374 1377
 L<http://books.simon-cozens.org/index.php/Perl_5_Internals#The_Lexer_and_the_Parser>
1375 1378
 training course. This is the currently best available description on
@@ -1392,7 +1395,7 @@ pdf L<http://scratchcomputing.com/developers/perl_guts_tour.pdf>
1392 1395
 
1393 1396
 This text was created in this wiki article:
1394 1397
 L<http://www.perlfoundation.org/perl5/index.cgi?optree_guts>
1395  
-The svn version should be more actual.
  1398
+The with B::C released version should be more actual.
1396 1399
 
1397 1400
 =head1 Conclusion
1398 1401
 
2  t/bytecode.t
@@ -34,7 +34,7 @@ my $PERL56  = ( $] <  5.008001 );
34 34
 my $DEBUGGING = ($Config{ccflags} =~ m/-DDEBUGGING/);
35 35
 my $ITHREADS  = $Config{useithreads};
36 36
 my $MULTI     = $Config{usemultiplicity};
37  
-my $AUTHOR    = -d ".svn";
  37
+my $AUTHOR    = -d '.svn' or -d '.git';
38 38
 
39 39
 my @tests = tests();
40 40
 my $numtests = $#tests+1;
4  t/c_o2.t
... ...
@@ -1,8 +1,8 @@
1 1
 #! /usr/bin/env perl
2 2
 # better use testc.sh -O2 for debugging
3 3
 BEGIN {
4  
-  #unless (-d ".svn") {
5  
-  #  print "1..0 #SKIP Only if -d .svn\n";
  4
+  #unless (-d ".svn" or -d '.git') {
  5
+  #  print "1..0 #SKIP Only if -d .svn|.git\n";
6 6
   #  exit;
7 7
   #}
8 8
   if ($ENV{PERL_CORE}){
4  t/c_o3.t
... ...
@@ -1,8 +1,8 @@
1 1
 #! /usr/bin/env perl
2 2
 # better use testc.sh -O3 for debugging
3 3
 BEGIN {
4  
-  unless (-d ".svn") {
5  
-    print "1..0 #SKIP Only if -d .svn\n";
  4
+  unless (-d ".svn" or -d '.git') {
  5
+    print "1..0 #SKIP Only if -d .svn|.git\n";
6 6
     exit;
7 7
   }
8 8
   if ($ENV{PERL_CORE}){
4  t/c_o4.t
... ...
@@ -1,8 +1,8 @@
1 1
 #! /usr/bin/env perl
2 2
 # better use testc.sh -O4 for debugging
3 3
 BEGIN {
4  
-  unless (-d ".svn") {
5  
-    print "1..0 #SKIP Only if -d .svn\n";
  4
+  unless (-d ".svn" or -d '.git') {
  5
+    print "1..0 #SKIP Only if -d .svn|.git\n";
6 6
     exit;
7 7
   }
8 8
   if ($ENV{PERL_CORE}){
4  t/cc_o1.t
... ...
@@ -1,8 +1,8 @@
1 1
 #! /usr/bin/env perl
2 2
 # better use testcc.sh -O1 for debugging
3 3
 BEGIN {
4  
-  unless (-d ".svn") {
5  
-    print "1..0 #SKIP Only if -d .svn\n";
  4
+  unless (-d ".svn" or -d '.git') {
  5
+    print "1..0 #SKIP Only if -d .svn|.git\n";
6 6
     exit;
7 7
   }
8 8
   if ($ENV{PERL_CORE}){
4  t/cc_o2.t
... ...
@@ -1,8 +1,8 @@
1 1
 #! /usr/bin/env perl
2 2
 # better use testcc.sh -O2 for debugging
3 3
 BEGIN {
4  
-  unless (-d ".svn") {
5  
-    print "1..0 #SKIP Only if -d .svn\n";
  4
+  unless (-d ".svn" or -d '.git') {
  5
+    print "1..0 #SKIP Only if -d .svn|.git\n";
6 6
     exit;
7 7
   }
8 8
   if ($ENV{PERL_CORE}){
2  t/modules.pm
@@ -84,7 +84,7 @@ sub log_err {
84 84
 
85 85
 sub is_subset {
86 86
   return 0 if grep /^-no-subset$/, @ARGV;
87  
-  return ! -d '.svn' || grep /^-subset$/, @ARGV;
  87
+  return ! (-d '.svn' or -d'.git') || grep /^-subset$/, @ARGV;
88 88
 }
89 89
 
90 90
 sub get_module_list {
7  t/modules.t
@@ -110,6 +110,13 @@ unless (is_subset) {
110 110
     my $svnstat = `svn status lib/B/C.pm t/test.pl t/*.t`;
111 111
     chomp $svnstat;
112 112
     $svnrev .= " M" if $svnstat;
  113
+  } elsif (-d '.git') {
  114
+    local $ENV{LC_MESSAGES} = "C";
  115
+    $svnrev = `git log -1 --pretty=format:"%h %ad | %s" --date=short`;
  116
+    chomp $svnrev;
  117
+    my $gitdiff = `git diff lib/B/C.pm t/test.pl t/*.t`;
  118
+    chomp $gitdiff;
  119
+    $svnrev .= " M" if $gitdiff;
113 120
   }
114 121
   log_diag("B::C::VERSION = $B::C::VERSION $svnrev");
115 122
   log_diag("perlversion = $perlversion");
2  t/test.pl
@@ -544,7 +544,7 @@ sub run_c_tests {
544 544
     my @skip = @{$_[2]};
545 545
 
546 546
     use Config;
547  
-    my $AUTHOR      = -d ".svn";
  547
+    my $AUTHOR      = -d ".svn" or -d ".git";
548 548
     my $keep_c      = 0;	  # set it to keep the pl, c and exe files
549 549
     my $keep_c_fail = 1;          # keep on failures
550 550
 

0 notes on commit c99dcdb

Please sign in to comment.
Something went wrong with that request. Please try again.