If any letter in -newer/-older is upper case, "or equal" is
inserted into the test.
-You can always find the latest version on the World Wide Web in
- http://www.wg.omron.co.jp/~jfriedl/perl/
INLINE_LITERAL_TEXT
exit(0);
}
$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';
##
if ($underlineOK) {
if ($regex =~ m/[?*+{}()\\.|^\$[]/) {
- warn "$0: warning, can't underline-safe ``$regex''.\n";
+ warn "$0: warning, can't underline-safe '$regex'.\n";
} else {
$regex = join($underline_glue, split(//, $regex));
}
## no RC file -- use this default.
@default = split(/\n/,<<'--------INLINE_LITERAL_TEXT');
magic: 32 : $H =~ m/[\x00-\x06\x10-\x1a\x1c-\x1f\x80\xff]{2}/
- option: -skip '.a .COM .elc .EXE .gz .o .pbm .xbm .dvi'
- option: -iskip '.tarz .zip .z .lzh .jpg .jpeg .gif .uu'
+ option: -skip '.a .elc .gz .o .pbm .xbm .dvi'
+ option: -iskip '.com .exe .lib .pdb .tarz .zip .z .lzh .jpg .jpeg .gif .uu'
<!~> option: -skip '~ #'
--------INLINE_LITERAL_TEXT
}
This manual describes
.I search
-as of version "941227.4". You can always find the latest version at
-.nf
- http://www.wg.omron.co.jp/~jfriedl/perl/index.html
-.fi
+as of version "941227.4".
.SH "QUICK EXAMPLE"
Basic use is simple: