incubator-ooo-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From h..@apache.org
Subject svn commit: r1183367 - /incubator/ooo/trunk/main/solenv/bin/modules/macosxotoolhelper.pm
Date Fri, 14 Oct 2011 14:22:43 GMT
Author: hdu
Date: Fri Oct 14 14:22:42 2011
New Revision: 1183367

URL: http://svn.apache.org/viewvc?rev=1183367&view=rev
Log:
macosxotoolhelper: need to quote perl regexp if it may contain regexp metachars

Modified:
    incubator/ooo/trunk/main/solenv/bin/modules/macosxotoolhelper.pm

Modified: incubator/ooo/trunk/main/solenv/bin/modules/macosxotoolhelper.pm
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/solenv/bin/modules/macosxotoolhelper.pm?rev=1183367&r1=1183366&r2=1183367&view=diff
==============================================================================
--- incubator/ooo/trunk/main/solenv/bin/modules/macosxotoolhelper.pm (original)
+++ incubator/ooo/trunk/main/solenv/bin/modules/macosxotoolhelper.pm Fri Oct 14 14:22:42 2011
@@ -35,8 +35,9 @@ sub otoolD($) {
     my $call = "otool -D $file";
     open(IN, "-|", $call) or die "cannot $call";
     my $line = <IN>;
-    $line =~ /^$file:\n$/ or
+    if( $line !~ /^\Q$file\E:\n$/ ) {
         die "unexpected otool -D output (\"$line\", expecting \"$file:\")";
+    }
     $line = <IN>;
     <IN> == undef or die "unexpected otool -D output";
     close(IN);



Mime
View raw message