1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 8fd032fa3..ea09c200a 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -339,7 +339,7 @@ sub strings {
     $h and die "usage: strings [-o] [-n min-length] [<files>]\n";
     $n = $n ? shift : 4;
     $/ = "\0"; @ARGV = @_; my $l = 0; while (<>) {
-	while (/[$printable_chars]\{$n,}/og) {
+	while (/[$printable_chars]{$n,}/og) {
 	    printf "%07d ", ($l + length $') if $o;
 	    print "$&\n" ;
 	}