| Subject: | VCS::Lite::Delta construction separator bug |
Attached is a test script that demonstrates the problem.
The output from test_vcs_delta.pl is
Diff1:
1c1
< Foobar
(?m-xis:^)---
Show quoted text
> Foobar 2
(?m-xis:^)
Note the "(?m-xis:^)" part which is coming from somewhere strange.
construction of Diff2 doesn't work at all, but based on what the
documentation says I expected it to work.
The "(?m-xis:^)" problem appeared in VCS::Lite::Delta v0.08
| Subject: | test_vcs_delta.pl |
#!/usr/local/bin/perl
use VCS::Lite::Delta;
my $delta_text =<<\EOM;
1c1
< Foobar
---
> Foobar 2
EOM
my $delta;
# this used to work in VCS::Lite::Delta v0.07
$delta = new VCS::Lite::Delta(\$delta_text, qr/^/m);
print "diff1:\n", $delta->diff, "\n";
# this doesn't work in v0.07 or 0.08, but according to the docs it should work
# (I think)
$delta = new VCS::Lite::Delta(\$delta_text);
print "diff2:\n", $delta->diff, "\n";