Skip to content

Commit e01bf68

Browse files
author
Chris White
committed
Use Text::Diff instead of Text::WordDiff [minor]
Text::WordDiff has far more dependencies. It's nicer, but probably not worth the weight since it's only used for debugging output in t/03-idempotency.t.
1 parent f1fed06 commit e01bf68

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

Makefile.PL

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,7 @@ WriteMakefile(
4848
'Config' => '0',
4949
'File::Spec' => '0',
5050
'Text::ParseWords' => '0',
51-
'Text::WordDiff' => '0',
51+
'Text::Diff' => '0', # for t/03-idempotency.t
5252
},
5353
PREREQ_PM => {
5454
'Getopt::Long' => '2.5', # Per issue #17

t/03-idempotency.t

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22
# Test running perlpp on itself - nothing should change.
33
use rlib './lib';
44
use PerlPPTest;
5-
use Text::WordDiff;
5+
use Text::Diff;
66
use File::Spec;
77
use Data::Dumper;
88
plan tests => 1;
@@ -33,7 +33,7 @@ if($loaderr) {
3333
run_perlpp $lrArgs, undef, \$out;
3434

3535
ok($out eq $wholefile, 'leaves its own source unchanged');
36-
diag "Diff:\n" . word_diff \$wholefile, \$out unless $out eq $wholefile;
36+
diag("Diff:\n" . diff \$wholefile, \$out) unless $out eq $wholefile;
3737

3838
#diag("Out:\n" . (@ARGV ? $out : substr($out,0,100)));
3939
#diag("Wholefile:\n" . $wholefile) if @ARGV;

0 commit comments

Comments
 (0)