diff --git a/utils/scan-build b/utils/scan-build
index e0d53ad..f8d2d8f 100755
--- a/utils/scan-build
+++ b/utils/scan-build
@@ -271,7 +271,7 @@
     return;
   }
   
-  chop $Prefix while (!($x =~ /^$Prefix/));
+  chop $Prefix while (!($x =~ /^\Q$Prefix/));
 }
 
 sub GetPrefix {