From e5538dd316c4dd18212454121adc75ca660d14f1 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 2 Aug 2004 04:36:04 +0000 Subject: further regexpes speedup --- strip_files | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'strip_files') diff --git a/strip_files b/strip_files index 3e70d13..b41a91b 100755 --- a/strip_files +++ b/strip_files @@ -36,9 +36,9 @@ sub testfile() { } # Does its filename look like a shared library? - if (m/.*\.so.*?/) { + if (m/\.so/) { # Ok, do the expensive test. - if (expensive_test($_) =~ m/.*ELF.*shared/) { + if (expensive_test($_) =~ m/ELF.*shared/) { push @executables, $fn; return; } @@ -48,14 +48,14 @@ sub testfile() { my (undef, undef, $mode, undef) = stat(_); if ($mode & 0111) { # Ok, expensive test. - if (expensive_test($_) =~ m/.*ELF.*executable/) { + if (expensive_test($_) =~ m/ELF.*executable/) { push @executables, $fn; return; } } # Is it a static library, and not a debug library? - if (m/lib.*\.a/ && ! m/.*_g\.a/) { + if (m/lib.*\.a/ && ! m/_g\.a/) { push @static_libs, $fn; return; } -- cgit v1.2.1