Hexadecimal float sprintf, for perl #122219

[perl5.git] / win32 / bin / search.pl

diff --git a/win32/bin/search.pl b/win32/bin/search.pl
index 98a320c..8f4d739 100644 (file)
--- a/win32/bin/search.pl
+++ b/win32/bin/search.pl
@@ -196,7 +196,7 @@ INLINE_LITERAL_TEXT
       $iflag='i',           next if $arg eq '-i';       ## ignore case
       $norc=1,              next if $arg eq '-norc';    ## don't load rc file
       $showrc=1,            next if $arg eq '-showrc';  ## show rc file
-      $underlineOK=1,       next if $arg eq '-u';       ## look throuh underln.
+      $underlineOK=1,       next if $arg eq '-u';       ## look through underln.
       $words=1,             next if $arg eq '-w';       ## match "words" only
       &strip                     if $arg eq '-strip';   ## dump this program
       last                       if $arg eq '-e';