git.shiar.nl
/
barcat.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
NO_COLOR environment as default --color
[barcat.git]
/
t
/
examples.t
diff --git
a/t/examples.t
b/t/examples.t
index 1af87e5fa5a368e799f589d5f6a2393f5d67dc73..c5648ad06c1b2bec403a211146811662282b1f7e 100755
(executable)
--- a/
t/examples.t
+++ b/
t/examples.t
@@
-13,7
+13,7
@@
use Test::More;
my %CMDARGS = (
ping => '-c 1',
curl => '-sS',
my %CMDARGS = (
ping => '-c 1',
curl => '-sS',
- 'cat \K
log
/' => '/var/log/apache2/',
+ 'cat \K
httpd
/' => '/var/log/apache2/',
);
my $filename = 'barcat';
);
my $filename = 'barcat';
@@
-22,9
+22,10
@@
open my $input, '<', $filename
local $/ = "\n\n";
while (readline $input) {
local $/ = "\n\n";
while (readline $input) {
- # find
code snipp
ets in the appropriate section
+ # find
scriptl
ets in the appropriate section
/^=head1 EXAMPLES/ ... /^=head1/ or next;
/^=head1 EXAMPLES/ ... /^=head1/ or next;
- /^\h/ or next;
+ /^\h/ or next; # indented code snippet
+ /\A\h*>/ and next; # psql prompt
chomp;
# compose an identifier from significant parts
chomp;
# compose an identifier from significant parts