diff options
| author | Jonas Smedegaard <dr@jones.dk> | 2013-05-08 16:02:34 +0200 |
|---|---|---|
| committer | Jonas Smedegaard <dr@jones.dk> | 2013-05-08 16:02:34 +0200 |
| commit | 9648541b65a3453b20cf798bbc39fb42c5509142 (patch) | |
| tree | 1c8ee6cde27a5f2056295868dafafea57d0f6055 | |
| parent | 86c82db6780593c4a7a9f52d1afbce29c5e37e8b (diff) | |
Fix pass diff texts by reference.
| -rwxr-xr-x | localworddiff | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/localworddiff b/localworddiff index af29599..86c6f00 100755 --- a/localworddiff +++ b/localworddiff @@ -39,12 +39,12 @@ my $text2 = read_file( $infile2, binmode => ':utf8' ); # use console if no output file provided as third argument unless ($outfile) { - print word_diff $text1, $text2, { STYLE => 'ANSIColor' }; + print word_diff \$text1, \$text2, { STYLE => 'ANSIColor' }; exit 0; } # resolve diff -my $diff = word_diff $text1, $text2, { STYLE => 'HTMLTwoLines' }; +my $diff = word_diff \$text1, \$text2, { STYLE => 'HTMLTwoLines' }; # apply markup to each file div of resolved diff my $d = "<div class=\"file\">"; |