Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix pod bug, commented out at run time loading different style module…

…, change return statement b/c of new spec. colomon++
  • Loading branch information...
commit db82d17468b088099fe6ff052363326a9ed5f7b0 1 parent 0ce2bbb
@Takadonet authored
Showing with 8 additions and 8 deletions.
  1. +7 −7 lib/Text/Diff.pm
  2. +1 −1  t/outputs.t
View
14 lib/Text/Diff.pm
@@ -85,11 +85,11 @@ multi sub text_diff(Inputs $a,Inputs $b,%options? = {'KEYGEN' => sub (*@a) {} })
$style = "Text::Diff::$style" if %internal_styles.exists($style);
#todo do not think the if statement below is working correctly
- if ! $style.can( "hunk" ) {
- #eval "require $style; 1" or die $@;
- require $style or die "Cannot import hunk";
+ # if ! $style.can( "hunk" ) {
+ # #eval "require $style; 1" or die $@;
+ # require ::($style) or die "Cannot import hunk";
- }
+ # }
$style = $style.eval.new();
# if ! ref $style && $style.can( "new" );
my $ctx_lines = %options.{'CONTEXT'};
@@ -152,7 +152,7 @@ multi sub text_diff(Inputs $a,Inputs $b,%options? = {'KEYGEN' => sub (*@a) {} })
$output_handler.( $style.file_footer( @a,@b, %options ) ) if $hunks;
- return defined $output ?? $output !! $hunks;
+ return $output.defined ?? $output !! $hunks;
}
@@ -332,7 +332,7 @@ role Text::Diff::Base {
}
-=begin
+=begin pod
=head1 NAME
@@ -654,4 +654,4 @@ License v 2.0 or greater.
=cut
-=end
+=end pod
View
2  t/outputs.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 8;
+plan 7;
BEGIN
{
@*INC.push('lib');
Please sign in to comment.
Something went wrong with that request. Please try again.