quote spaces in -I options

[imager-screenshot.git] / Makefile.PL

diff --git a/Makefile.PL b/Makefile.PL
index 50cf6f88b02260e9b51951f1827f073e55559c8b..2417bd992c6323a1cb9c99ed0f849cd9b2181371 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -165,12 +165,22 @@ sub _find_file {
   grep -f File::Spec->catfile($_, $name), @where;
 }
 
+sub _quote_spaces {
+  my $path = shift;
+
+  if ($path =~ / /) {
+    return qq("$path");
+  }
+
+  return $path;
+}
+
 sub find_header {
   my ($name, $description) = @_;
   my @found = _find_file($_[0], header_search_path());
 
   if (@found) {
-    push @cflags, "-I$_" for grep !$seen_incdir{$_}, @found;
+    push @cflags, _quote_spaces("-I$_") for grep !$seen_incdir{$_}, @found;
     @seen_incdir{@found} = (1) x @found;
   }
   else {