… | |
… | |
213 | unless -d $path; |
213 | unless -d $path; |
214 | |
214 | |
215 | $viewer->show_all; |
215 | $viewer->show_all; |
216 | }; |
216 | }; |
217 | |
217 | |
|
|
218 | my $force_sort = $ARGV[0] eq "--sort" ? shift @ARGV : 0; |
|
|
219 | |
218 | if (@ARGV == 1 && $ARGV[0] eq "-0r") { |
220 | if (@ARGV == 1 && $ARGV[0] eq "-0r") { |
219 | local $/; |
221 | local $/; |
220 | $schnauzer->set_paths ([split /\x00/, <STDIN>], 1, $show_first); |
222 | $schnauzer->set_paths ([split /\x00/, <STDIN>], !$force_sort, $show_first); |
221 | } elsif (@ARGV == 1 && -d $ARGV[0]) { |
223 | } elsif (@ARGV == 1 && -d $ARGV[0]) { |
222 | $schnauzer->set_dir (shift, $show_first); |
224 | $schnauzer->set_dir (shift, $show_first); |
223 | } else { |
225 | } else { |
224 | if ($ARGV[0] eq "-g") { |
226 | if ($ARGV[0] eq "-g") { |
225 | shift @ARGV; |
227 | shift @ARGV; |
226 | @ARGV = map +(File::Glob::bsd_glob $_, File::Glob::GLOB_BRACE | File::Glob::GLOB_QUOTE), @ARGV; |
228 | @ARGV = map +(File::Glob::bsd_glob $_, File::Glob::GLOB_BRACE | File::Glob::GLOB_QUOTE), @ARGV; |
227 | } |
229 | } |
228 | $schnauzer->set_paths ([@ARGV], 1, $show_first); |
230 | $schnauzer->set_paths ([@ARGV], !$force_sort, $show_first); |
229 | } |
231 | } |
230 | } else { |
232 | } else { |
231 | $schnauzer->set_dir (File::Spec->curdir, sub { |
233 | $schnauzer->set_dir (File::Spec->curdir, sub { |
232 | $mainwin->show_all; |
234 | $mainwin->show_all; |
233 | $viewer->show_all; |
235 | $viewer->show_all; |
… | |
… | |
257 | cv path... |
259 | cv path... |
258 | |
260 | |
259 | cv -g <glob expression...> |
261 | cv -g <glob expression...> |
260 | |
262 | |
261 | find .. -print0 | cv -0r |
263 | find .. -print0 | cv -0r |
|
|
264 | |
|
|
265 | cv --sort ... |
262 | |
266 | |
263 | =head1 FEATURES |
267 | =head1 FEATURES |
264 | |
268 | |
265 | CV is supposed to work similar to the venerable XV image viewer, just |
269 | CV is supposed to work similar to the venerable XV image viewer, just |
266 | faster. Why faster? |
270 | faster. Why faster? |