diff revisions.pl.in @ 1065:dc576c7e4b1e

Fix to make sure to create gen/ in build dir and unbreak build with older perl
author Frits van Bommel <fvbommel wxs.nl>
date Sun, 08 Mar 2009 16:37:55 +0100
parents f0b6549055ab
children 829ac3f30103
line wrap: on
line diff
--- a/revisions.pl.in	Sun Mar 08 16:13:10 2009 +0100
+++ b/revisions.pl.in	Sun Mar 08 16:37:55 2009 +0100
@@ -11,9 +11,9 @@
 my $llvm_rev_str;
 my $llvm_rev_nr;
 
-if ($llvm_rev =~ /^\s*(\d+:)?(?<str>(?<nr>\d+)[MSP]*)\s*$/) {
-	$llvm_rev_str = qq!#define LLVM_REV_STR "LLVM rev. $+{str}"!;
-	$llvm_rev_nr = "$+{nr}";
+if ($llvm_rev =~ /^\s*(\d+:)?((\d+)[MSP]*)\s*$/) {
+	$llvm_rev_str = qq!#define LLVM_REV_STR "LLVM rev. $2"!;
+	$llvm_rev_nr = "$3";
 } else {
 	my $llvm_lib = `perl @LLVM_CONFIG@ --libdir`;
 	$llvm_lib =~ s/\s+$//;