pst0VCS::Lite::Element 2004-12-05T19:01:28created 2004-12-05T19:04:16updated ivorauthor Initial version of scripts description1 generation 1latest VCS::Lite::Store::Storablestore ivorcreator- +1  #!/usr/local/bin/perl  use strict;  use warnings;   use VCS::Lite;  use Getopt::Long;  my $output;  GetOptions(  'output=s' => \$output  );   if (@ARGV != 3) {  print <new($orig); " my $el2 = VCS::Lite->new($chg1); " my $el3 = VCS::Lite->new($chg2);  9 my $el4 = $el1->merge($el2,$el3) or die "Merge failed";   if (!$output) {  rename $orig, "$orig.orig";  $output = $orig;  }   open MERGE,">$output";  print MERGE $el4->text;  close MERGE;  =1 contents 2004-12-05T19:04:16updated V/home/ivor/dev/VCS/Lite/Repository/VCS-Lite-Repository-0.09/example/scripts/vlmerge.plpath