frag.pl: fix handling of spaces in filenames

Signed-off-by: Florian Pritz <bluewind@xssn.at>

1 files changed, 1 insertions, 1 deletions

diff --git a/frag.pl b/frag.pl
index b8eb685..3e2838e 100755
--- a/frag.pl
+++ b/frag.pl
@@ -11,7 +11,7 @@ my $fragments = 0;
 my $fragfiles = 0;
 
 #search fs for all file
-open (FILES, "find " . $ARGV[0] . " -xdev -type f -print0 |");
+open (FILES, "find '" . $ARGV[0] . "' -xdev -type f -print0 |");
 
 $/ = "\0";