Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Use Dist::Zilla

  • Loading branch information...
commit bfc515ed96e6ee7d590da9c3d4c522e7aebcbfc9 1 parent eca6538
@hinrik authored
View
4 .gitignore
@@ -2,6 +2,4 @@ Makefile
Makefile.old
grok-*
blib
-inc
-pm_to_blib
-META.yml
+.build
View
3  Changes
@@ -1,3 +1,6 @@
+{{$NEXT}}
+ - Use Dist::Zilla
+
0.21 Wed Jun 16 19:36:56 GMT 2010
- Add -U/--update to download latest versions of documents from the web
View
201 LICENSE
@@ -1,201 +0,0 @@
- The Artistic License 2.0
-
- Copyright (c) 2000-2006, The Perl Foundation.
-
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-Preamble
-
-This license establishes the terms under which a given free software
-Package may be copied, modified, distributed, and/or redistributed.
-The intent is that the Copyright Holder maintains some artistic
-control over the development of that Package while still keeping the
-Package available as open source and free software.
-
-You are always permitted to make arrangements wholly outside of this
-license directly with the Copyright Holder of a given Package. If the
-terms of this license do not permit the full use that you propose to
-make of the Package, you should contact the Copyright Holder and seek
-a different licensing arrangement.
-
-Definitions
-
- "Copyright Holder" means the individual(s) or organization(s)
- named in the copyright notice for the entire Package.
-
- "Contributor" means any party that has contributed code or other
- material to the Package, in accordance with the Copyright Holder's
- procedures.
-
- "You" and "your" means any person who would like to copy,
- distribute, or modify the Package.
-
- "Package" means the collection of files distributed by the
- Copyright Holder, and derivatives of that collection and/or of
- those files. A given Package may consist of either the Standard
- Version, or a Modified Version.
-
- "Distribute" means providing a copy of the Package or making it
- accessible to anyone else, or in the case of a company or
- organization, to others outside of your company or organization.
-
- "Distributor Fee" means any fee that you charge for Distributing
- this Package or providing support for this Package to another
- party. It does not mean licensing fees.
-
- "Standard Version" refers to the Package if it has not been
- modified, or has been modified only in ways explicitly requested
- by the Copyright Holder.
-
- "Modified Version" means the Package, if it has been changed, and
- such changes were not explicitly requested by the Copyright
- Holder.
-
- "Original License" means this Artistic License as Distributed with
- the Standard Version of the Package, in its current version or as
- it may be modified by The Perl Foundation in the future.
-
- "Source" form means the source code, documentation source, and
- configuration files for the Package.
-
- "Compiled" form means the compiled bytecode, object code, binary,
- or any other form resulting from mechanical transformation or
- translation of the Source form.
-
-
-Permission for Use and Modification Without Distribution
-
-(1) You are permitted to use the Standard Version and create and use
-Modified Versions for any purpose without restriction, provided that
-you do not Distribute the Modified Version.
-
-
-Permissions for Redistribution of the Standard Version
-
-(2) You may Distribute verbatim copies of the Source form of the
-Standard Version of this Package in any medium without restriction,
-either gratis or for a Distributor Fee, provided that you duplicate
-all of the original copyright notices and associated disclaimers. At
-your discretion, such verbatim copies may or may not include a
-Compiled form of the Package.
-
-(3) You may apply any bug fixes, portability changes, and other
-modifications made available from the Copyright Holder. The resulting
-Package will still be considered the Standard Version, and as such
-will be subject to the Original License.
-
-
-Distribution of Modified Versions of the Package as Source
-
-(4) You may Distribute your Modified Version as Source (either gratis
-or for a Distributor Fee, and with or without a Compiled form of the
-Modified Version) provided that you clearly document how it differs
-from the Standard Version, including, but not limited to, documenting
-any non-standard features, executables, or modules, and provided that
-you do at least ONE of the following:
-
- (a) make the Modified Version available to the Copyright Holder
- of the Standard Version, under the Original License, so that the
- Copyright Holder may include your modifications in the Standard
- Version.
-
- (b) ensure that installation of your Modified Version does not
- prevent the user installing or running the Standard Version. In
- addition, the Modified Version must bear a name that is different
- from the name of the Standard Version.
-
- (c) allow anyone who receives a copy of the Modified Version to
- make the Source form of the Modified Version available to others
- under
-
- (i) the Original License or
-
- (ii) a license that permits the licensee to freely copy,
- modify and redistribute the Modified Version using the same
- licensing terms that apply to the copy that the licensee
- received, and requires that the Source form of the Modified
- Version, and of any works derived from it, be made freely
- available in that license fees are prohibited but Distributor
- Fees are allowed.
-
-
-Distribution of Compiled Forms of the Standard Version
-or Modified Versions without the Source
-
-(5) You may Distribute Compiled forms of the Standard Version without
-the Source, provided that you include complete instructions on how to
-get the Source of the Standard Version. Such instructions must be
-valid at the time of your distribution. If these instructions, at any
-time while you are carrying out such distribution, become invalid, you
-must provide new instructions on demand or cease further distribution.
-If you provide valid instructions or cease distribution within thirty
-days after you become aware that the instructions are invalid, then
-you do not forfeit any of your rights under this license.
-
-(6) You may Distribute a Modified Version in Compiled form without
-the Source, provided that you comply with Section 4 with respect to
-the Source of the Modified Version.
-
-
-Aggregating or Linking the Package
-
-(7) You may aggregate the Package (either the Standard Version or
-Modified Version) with other packages and Distribute the resulting
-aggregation provided that you do not charge a licensing fee for the
-Package. Distributor Fees are permitted, and licensing fees for other
-components in the aggregation are permitted. The terms of this license
-apply to the use and Distribution of the Standard or Modified Versions
-as included in the aggregation.
-
-(8) You are permitted to link Modified and Standard Versions with
-other works, to embed the Package in a larger work of your own, or to
-build stand-alone binary or bytecode versions of applications that
-include the Package, and Distribute the result without restriction,
-provided the result does not expose a direct interface to the Package.
-
-
-Items That are Not Considered Part of a Modified Version
-
-(9) Works (including, but not limited to, modules and scripts) that
-merely extend or make use of the Package, do not, by themselves, cause
-the Package to be a Modified Version. In addition, such works are not
-considered parts of the Package itself, and are not subject to the
-terms of this license.
-
-
-General Provisions
-
-(10) Any use, modification, and distribution of the Standard or
-Modified Versions is governed by this Artistic License. By using,
-modifying or distributing the Package, you accept this license. Do not
-use, modify, or distribute the Package, if you do not accept this
-license.
-
-(11) If your Modified Version has been derived from a Modified
-Version made by someone other than you, you are nevertheless required
-to ensure that your Modified Version complies with the requirements of
-this license.
-
-(12) This license does not grant you the right to use any trademark,
-service mark, tradename, or logo of the Copyright Holder.
-
-(13) This license includes the non-exclusive, worldwide,
-free-of-charge patent license to make, have made, use, offer to sell,
-sell, import and otherwise transfer the Package with respect to any
-patent claims licensable by the Copyright Holder that are necessarily
-infringed by the Package. If you institute patent litigation
-(including a cross-claim or counterclaim) against any party alleging
-that the Package constitutes direct or contributory patent
-infringement, then this Artistic License to you shall terminate on the
-date that such litigation is filed.
-
-(14) Disclaimer of Warranty:
-THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS
-IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED
-WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR
-NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL
-LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL
-BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL
-DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF
-ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
View
53 MANIFEST
@@ -1,53 +0,0 @@
-script/grok
-lib/App/Grok.pm
-lib/App/Grok/Common.pm
-lib/App/Grok/Parser/Pod5.pm
-lib/App/Grok/Parser/Pod6.pm
-lib/App/Grok/Resource/File.pm
-lib/App/Grok/Resource/Functions.pm
-lib/App/Grok/Resource/Spec.pm
-lib/App/Grok/Resource/Tablet.pm
-lib/App/Grok/Resource/u4x.pm
-p6/grok
-Makefile.PL
-MANIFEST
-META.yml
-LICENSE
-Changes
-README
-TODO
-t/01_compile.t
-t/02_source/01_pod5.t
-t/02_source/02_pod6.t
-t/03_opts/01_file.t
-t/03_opts/02_output.t
-t/03_opts/03_help.t
-t/03_opts/04_version.t
-t/03_opts/05_no_pager.t
-t/03_opts/06_index.t
-t/03_opts/07_locate.t
-t/04_targets/01_file.t
-t/04_targets/02_synopsis.t
-t/04_targets/03_function.t
-t/04_targets/04_tablet.t
-t/04_targets/05_failure.t
-t/04_targets/06_man_page.t
-t_source/basic.pod
-t_source/basic5.pod
-xt/perlcriticrc
-xt/perlcriticrc_tests
-xt/perl_critic.t
-xt/perl_critic_tests.t
-xt/pod_coverage.t
-xt/pod.t
-inc/Module/Install.pm
-#inc/Module/Install/AuthorRequires.pm
-inc/Module/Install/Base.pm
-inc/Module/Install/Can.pm
-inc/Module/Install/Fetch.pm
-inc/Module/Install/GithubMeta.pm
-inc/Module/Install/Makefile.pm
-inc/Module/Install/Metadata.pm
-inc/Module/Install/Scripts.pm
-inc/Module/Install/Win32.pm
-inc/Module/Install/WriteAll.pm
View
6 MANIFEST.SKIP
@@ -0,0 +1,6 @@
+^Makefile$
+\.old$
+^grok-
+^blib/
+^pm_to_blib$
+^cover_db/
View
43 Makefile.PL
@@ -1,43 +0,0 @@
-use strict;
-use warnings;
-use inc::Module::Install;
-use 5.006;
-
-my $mi = '0.94';
-if ($inc::Module::Install::VERSION lt $mi) {
- die "Your Module::Install is older than $mi, please upgrade it";
-}
-
-name ('grok');
-perl_version ('5.006');
-author ('Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>');
-abstract ('Perl 6 documentation reader');
-version_from ('lib/App/Grok.pm');
-install_script ('script/grok');
-no_index (directory => 't_source');
-license ('artistic_2');
-homepage ('http://svn.pugscode.org/pugs/docs/u4x/README');
-githubmeta ();
-requires ('Getopt::Long' => '2.33');
-requires ('IO::Interactive' => '0');
-requires ('File::HomeDir' => '0');
-requires ('File::ShareDir' => '0');
-requires ('File::Temp' => '0');
-requires ('LWP::UserAgent' => '0');
-requires ('Perl6::Doc' => '0.44');
-requires ('Perl6::Perldoc' => '0.0.5');
-requires ('Perl6::Perldoc::To::Ansi' => '0.07');
-requires ('Pod::Text::Ansi' => '0.04');
-requires ('Pod::Xhtml' => '0');
-requires ('Pod::Parser' => '1.36');
-recommends ('Term::ProgressBar' => '0');
-recommends ('Win32::Console::ANSI' => '0') if $^O eq 'Win32';
-test_requires ('Test::More' => '0');
-test_requires ('Test::Script' => '0');
-#author_requires('Perl::Critic' => '1.098');
-#author_requires('Test::Perl::Critic' => '0');
-#author_requires('Test::Pod' => '0');
-#author_requires('Test::Pod::Coverage' => '0');
-tests_recursive();
-WriteAll();
-
View
62 README
@@ -1,62 +0,0 @@
-NAME
- grok - Perl 6 documentation reader
-
-SYNOPSIS
- grok <options> <target>
-
- Options:
- -F FILE, --file=FILE A file to read Pod from
- -h, --help Print this help message
- -i, --index Print index of things grok knows about
- -l, --locate Locate the target file
- -o FORMAT, --output=FORMAT The output format, ansi/text/xhtml/pod
- -T, --no-pager Send output to STDOUT without any pager
- -u, --unformatted Print unformatted Pod output
- -V, --version Print version information
-
- If you don't supply the -F or -i options, you need to supply a target.
- The following targets are recognized:
-
- * A Synopsis name ('s02', 's02-bits', 's32-rules')
- * An Apocalypse name ('a01', 'a02', 'a03')
- * An Exegesis name ('e01', 'e02', 'e03')
- * An article name ('m01', 'm01-perl6-announcement', 'm02')
- * A function name from Synopsis 29
- * An entry in the Perl 6 Table Index ('%', '!=', 'split')
- * The Perl 6 Table Index itself ('table_index')
- * A path to a file containing Pod ('/some/file.pod')
-
-DESCRIPTION
- This little application is intended to be a "perldoc" for Perl 6.
-
- Prior art and inspiration
- Perl 5's "perldoc" (<http://perldoc.perl.org/perldoc.html>)
- Python's "pydoc" (<http://docs.python.org/library/pydoc.html>)
- Ruby's "ri"
- (<http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/lib/rdoc/>)
- <http://svn.pugscode.org/pugs/ext/Perldoc/>
- <http://svn.pugscode.org/pugs/examples/perldoc.pl>
-
-CAVEATS
- Limitations of "Perl6::Perldoc"
- *The following only affects Pod 6 documents.*
-
- * Long lines are not wrapped to fit your terminal.
-
- * Extraneous whitespace in paragraphs is preserved, counter to the spec.
-
- * Formatting codes using french quotes ("C«»") aren't parsed correctly,
- so they are rendered verbatim.
-
- * Formatting codes within "=table" blocks are ignored.
-
-AUTHOR
- Hinrik Örn Sigurðsson, hinrik.sig@gmail.com
-
-LICENSE AND COPYRIGHT
- Copyright 2009 Hinrik Örn Sigurðsson
-
- "grok" is distributed under the terms of the Artistic License 2.0. For
- more details, see the full text of the license in the file LICENSE that
- came with this distribution.
-
View
0  script/grok → bin/grok
File renamed without changes
View
38 dist.ini
@@ -0,0 +1,38 @@
+name = grok
+abstract = Perl 6 documentation reader
+author = Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>
+copyright_holder = Hinrik Örn Sigurðsson
+license = Artistic_2_0
+
+[@AVAR]
+dist = grok
+authority = cpan:HINRIK
+bugtracker = rt
+use_CompileTests = 0
+nextrelease_format = %-5v %{ccc MMM d HH:mm:ss V YYYY}d
+github_user = hinrik
+git_tag_message = CPAN release %v
+no_AutoPrereq = 1
+
+[Prereq / Runtime]
+perl = 5.006
+Getopt::Long = 2.33
+IO::Interactive = 0
+File::HomeDir = 0
+File::ShareDir = 0
+File::Temp = 0
+LWP::UserAgent = 0
+Perl6::Doc = 0.44
+Perl6::Perldoc = 0.0.5
+Perl6::Perldoc::To::Ansi = 0.07
+Pod::Text::Ansi = 0.04
+Pod::Xhtml = 0
+Pod::Parser = 1.36
+
+[Prereq / RuntimeRecommends]
+Term::ProgressBar = 0
+Win32::Console::ANSI = 0
+
+[Prereq / BuildRequires]
+Test::More = 0.47
+Test::Script = 1.07
View
8 lib/App/Grok.pm
@@ -15,7 +15,6 @@ use Getopt::Long qw<:config bundling>;
use List::Util qw<first>;
use Pod::Usage;
-our $VERSION = '0.21';
my %opt;
our $GOT_ANSI;
@@ -94,7 +93,12 @@ sub _get_options {
'T|no-pager' => \$opt{no_pager},
'u|unformatted' => sub { $opt{output} = 'pod' },
'U|update' => \$opt{update},
- 'V|version' => sub { print "grok $VERSION\n"; exit },
+ 'V|version' => sub {
+ no strict 'vars';
+ my $version = defined $VERSION ? $VERSION : 'dev-git';
+ print "grok $version\n";
+ exit;
+ },
) or pod2usage();
if (!$opt{update} && !$opt{index} && !defined $opt{file} && !@ARGV) {
View
2  lib/App/Grok/Parser/Pod5.pm
@@ -4,8 +4,6 @@ use strict;
use warnings;
use File::Temp qw<tempfile>;
-our $VERSION = '0.21';
-
my %formatter = (
text => 'Pod::Text',
ansi => 'Pod::Text::Ansi',
View
2  lib/App/Grok/Parser/Pod6.pm
@@ -6,8 +6,6 @@ use Perl6::Perldoc::Parser;
use strict;
use warnings;
-our $VERSION = '0.21';
-
sub new {
my ($package, %self) = @_;
return bless \%self, $package;
View
1  lib/App/Grok/Resource/File.pm
@@ -3,7 +3,6 @@ package App::Grok::Resource::File;
use strict;
use warnings;
-our $VERSION = '0.21';
use base qw(Exporter);
our @EXPORT_OK = qw(file_index file_fetch file_locate);
our %EXPORT_TAGS = ( ALL => [@EXPORT_OK] );
View
1  lib/App/Grok/Resource/Functions.pm
@@ -5,7 +5,6 @@ use warnings;
use File::ShareDir qw<dist_dir>;
use File::Spec::Functions qw<catdir catfile splitpath>;
-our $VERSION = '0.21';
use base qw(Exporter);
our @EXPORT_OK = qw(func_index func_fetch func_locate);
our %EXPORT_TAGS = ( ALL => [@EXPORT_OK] );
View
1  lib/App/Grok/Resource/Spec.pm
@@ -6,7 +6,6 @@ use App::Grok::Common qw<data_dir download>;
use File::ShareDir qw<dist_dir>;
use File::Spec::Functions qw<catdir catfile splitpath>;
-our $VERSION = '0.21';
use base qw(Exporter);
our @EXPORT_OK = qw(spec_index spec_fetch spec_locate spec_update);
our %EXPORT_TAGS = ( ALL => [@EXPORT_OK] );
View
1  lib/App/Grok/Resource/Tablet.pm
@@ -7,7 +7,6 @@ use File::ShareDir qw<dist_dir>;
use File::Spec::Functions qw<catdir catfile>;
use File::stat;
-our $VERSION = '0.21';
use base qw<Exporter>;
our @EXPORT_OK = qw<tablet_index tablet_fetch tablet_locate tablet_update>;
our %EXPORT_TAGS = ( ALL => [@EXPORT_OK] );
View
1  lib/App/Grok/Resource/u4x.pm
@@ -3,7 +3,6 @@ package App::Grok::Resource::u4x;
use strict;
use warnings;
-our $VERSION = '0.21';
use base qw(Exporter);
our @EXPORT_OK = qw(u4x_index u4x_fetch u4x_locate);
our %EXPORT_TAGS = ( ALL => [@EXPORT_OK] );
View
7 t/01_compile.t
@@ -5,6 +5,7 @@ use Test::Script;
use Pod::Simple ();
use Pod::Text ();
use Pod::Xhtml ();
+use File::Spec::Functions 'catfile';
diag('Pod::Parser version ' . $Pod::Parser::VERSION);
diag('Pod::Simple version ' . $Pod::Simple::VERSION);
diag('Pod::Text version ' . $Pod::Text::VERSION);
@@ -12,4 +13,8 @@ diag('Pod::Xhtml version ' . $Pod::Xhtml::VERSION);
use_ok('App::Grok');
use_ok('App::Grok::Parser::Pod5');
use_ok('App::Grok::Parser::Pod6');
-script_compiles_ok('script/grok', 'grok compiles');
+
+SKIP: {
+ skip "There's no blib", 1 unless -d "blib" and -f catfile qw(blib script grok);
+ script_compiles(catfile('bin', 'grok'));
+};
View
2  t/03_opts/01_file.t
@@ -3,7 +3,7 @@ use warnings;
use File::Spec::Functions 'catfile';
use Test::More tests => 6;
-my $script = catfile('script', 'grok');
+my $script = catfile('bin', 'grok');
my $pod = catfile('t_source', 'basic.pod');
my $result_short = qx/$^X $script -F $pod/;
my $result_long = qx/$^X $script --file $pod/;
View
2  t/03_opts/02_output.t
@@ -3,7 +3,7 @@ use warnings;
use File::Spec::Functions 'catfile';
use Test::More tests => 14;
-my $script = catfile('script', 'grok');
+my $script = catfile('bin', 'grok');
my $pod6 = catfile('t_source', 'basic.pod');
my $pod6_text_short = qx/$^X $script -F $pod6 -o text/;
View
2  t/03_opts/03_help.t
@@ -3,7 +3,7 @@ use warnings;
use File::Spec::Functions 'catfile';
use Test::More tests => 2;
-my $script = catfile('script', 'grok');
+my $script = catfile('bin', 'grok');
my $result_short = qx/$^X $script -h/;
my $result_long = qx/$^X $script --help/;
View
6 t/03_opts/04_version.t
@@ -3,10 +3,10 @@ use warnings;
use File::Spec::Functions 'catfile';
use Test::More tests => 2;
-my $script = catfile('script', 'grok');
+my $script = catfile('bin', 'grok');
my $result_short = qx/$^X $script -V/;
my $result_long = qx/$^X $script --version/;
-like($result_short, qr/^grok \d/, "Got version info (-V)");
-like($result_long, qr/^grok \d/, "Got version info (--version)");
+like($result_short, qr/^grok (?:dev-git|\d)/, "Got version info (-V)");
+like($result_long, qr/^grok (?:dev-git|\d)/, "Got version info (--version)");
View
2  t/03_opts/05_no_pager.t
@@ -3,7 +3,7 @@ use warnings;
use File::Spec::Functions 'catfile';
use Test::More tests => 2;
-my $script = catfile('script', 'grok');
+my $script = catfile('bin', 'grok');
my $pod = catfile('t_source', 'basic.pod');
my $result_paged = qx/$^X $script -F $pod/; # TODO: test this
my $result_unpaged_short = qx/$^X $script -F $pod -T/;
View
2  t/03_opts/06_index.t
@@ -3,7 +3,7 @@ use warnings;
use File::Spec::Functions 'catfile';
use Test::More tests => 6;
-my $script = catfile('script', 'grok');
+my $script = catfile('bin', 'grok');
my $index_short = qx/$^X $script -i/;
my $index_long = qx/$^X $script --index/;
View
2  t/03_opts/07_locate.t
@@ -3,7 +3,7 @@ use warnings;
use File::Spec::Functions 'catfile';
use Test::More tests => 2;
-my $script = catfile('script', 'grok');
+my $script = catfile('bin', 'grok');
my $locate_short = qx/$^X $script -l s02/;
my $locate_long = qx/$^X $script --locate s02/;
View
2  t/04_targets/01_file.t
@@ -6,7 +6,7 @@ use Test::More tests => 1;
# grok should fall back to reading from a (Pod 6) file if it doesn't
# recognize the target
my $file = catfile('t_source', 'basic.pod');
-my $grok = catfile('script', 'grok');
+my $grok = catfile('bin', 'grok');
my $result = qx/$^X $grok $file/;
like($result, qr/Baz/, "Got result");
View
2  t/04_targets/02_synopsis.t
@@ -3,7 +3,7 @@ use warnings;
use File::Spec::Functions 'catfile';
use Test::More tests => 4;
-my $grok = catfile('script', 'grok');
+my $grok = catfile('bin', 'grok');
my $s02 = qx/$^X $grok s02/;
my $s04 = qx/$^X $grok s04-control/;
View
2  t/04_targets/03_function.t
@@ -3,7 +3,7 @@ use warnings;
use File::Spec::Functions 'catfile';
use Test::More tests => 2;
-my $grok = catfile('script', 'grok');
+my $grok = catfile('bin', 'grok');
my $fork = qx/$^X $grok fork/;
my $kill = qx/$^X $grok kill/;
View
2  t/04_targets/04_tablet.t
@@ -3,7 +3,7 @@ use warnings;
use File::Spec::Functions 'catfile';
use Test::More tests => 2;
-my $grok = catfile('script', 'grok');
+my $grok = catfile('bin', 'grok');
my $fork = qx/$^X $grok chdir/;
my $kill = qx/$^X $grok chop/;
View
2  t/04_targets/05_failure.t
@@ -4,7 +4,7 @@ use File::Spec::Functions 'catfile';
use Test::More tests => 1;
# grok should die with an error message if the target is not recognized
-my $grok = catfile('script', 'grok');
+my $grok = catfile('bin', 'grok');
my $target = 'definitely_completely_unrecognized_target';
my $result = qx/$^X $grok $target 2>&1/;
View
2  t/04_targets/06_man_page.t
@@ -3,7 +3,7 @@ use warnings;
use File::Spec::Functions 'catfile';
use Test::More tests => 2;
-my $grok = catfile('script', 'grok');
+my $grok = catfile('bin', 'grok');
my $perlintro = qx/$^X $grok perlintro/;
my $perlsyn = qx/$^X $grok perlsyn/;
Please sign in to comment.
Something went wrong with that request. Please try again.