diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-06-15 16:30:58 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-06-15 16:30:58 +0000 |
| commit | 645ff3cb711b95d7444ec52a58fa4be7561ff5d1 (patch) | |
| tree | 094294346af38f962baee9d619875b9a106d9fdf /win32 | |
| parent | ab019eaa775fdcae8aaf709315c7ba85a788ee6c (diff) | |
| download | perl-645ff3cb711b95d7444ec52a58fa4be7561ff5d1.tar.gz | |
Fix $Config{ccversion} for Borland C++ 5.5.1
This pattern match seems a little saner, and stops " for Win32"
getting picked up from the following output:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
Maybe it breaks older versions, but at least the latest now works
correctly. If anyone knows what older versions' messages look like
then speak up!
p4raw-id: //depot/perl@24855
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/config_sh.PL | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/win32/config_sh.PL b/win32/config_sh.PL index dd58495c0c..db4eb56a68 100644 --- a/win32/config_sh.PL +++ b/win32/config_sh.PL @@ -82,8 +82,7 @@ if (exists $opt{cc}) { } elsif ($opt{cc} eq 'bcc32') { my $output = `bcc32 --version 2>&1`; - $opt{ccversion} = $output =~ /(\d+.*)/ ? $1 : '?'; - $opt{ccversion} =~ s/\s+copyright.*//i; + $opt{ccversion} = $output =~ /([\d.]+)/ ? $1 : '?'; } elsif ($opt{cc} eq 'gcc') { chomp($opt{gccversion} = `gcc -dumpversion`); |