Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $new = 'this is the new text';

print text_diff(["$old"], ["$new"]);

Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/Pa
+ragraphDiff.pm line 197.
Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/Pa
+ragraphDiff.pm line 125.
...
Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/Pa
+ragraphDiff.pm line 258.
Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/Pa
+ragraphDiff.pm line 258.
Use of uninitialized value in concatenation (.) or string at /Library/
+Perl/5.8.1/Text/ParagraphDiff.pm line 265.