diff options
author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-05-10 14:30:03 +0000 |
---|---|---|
committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-05-10 14:30:03 +0000 |
commit | f1b30845eb25fc02dd4fa685c186b5a450ba63e8 (patch) | |
tree | e12099796a0c541bce3239dcc3711742292018bf /lib/sbin | |
parent | 6534cd080e6b2d2ad9778db4231807b3a25c3552 (diff) |
Simplify a pattern match (which didn't work on Darwin before).
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2806 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin')
-rwxr-xr-x | lib/sbin/cpp.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/sbin/cpp.pl b/lib/sbin/cpp.pl index 20fde0af..86416a33 100755 --- a/lib/sbin/cpp.pl +++ b/lib/sbin/cpp.pl @@ -1144,7 +1144,7 @@ sub ArgumentSubstitute for(my $arg = 0; $arg < $nargs; $arg++) { - if($token =~ m/^$args[$arg]$/) + if($token eq "$args[$arg]$") { $token = $args[$arg+$nargs]; last; |