summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-02-23 13:18:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-02-23 13:18:48 +0000
commit24f8b57f04273cbfab21ba00b01c828a91506b9b (patch)
tree4772a40a8618e9fa152ae6e28b7fae03aa682bf9 /perl-install/commands.pm
parent24dda9b78fbe61e569bfb65818b823a4f65af87d (diff)
downloaddrakx-24f8b57f04273cbfab21ba00b01c828a91506b9b.tar
drakx-24f8b57f04273cbfab21ba00b01c828a91506b9b.tar.gz
drakx-24f8b57f04273cbfab21ba00b01c828a91506b9b.tar.bz2
drakx-24f8b57f04273cbfab21ba00b01c828a91506b9b.tar.xz
drakx-24f8b57f04273cbfab21ba00b01c828a91506b9b.zip
no_comment
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm2
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" ;
}