pst0VCS::Lite::Element 2004-12-05T19:01:14created 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 $uflag = 0;  GetOptions(  'universal+' => \$uflag,  );   if (@ARGV != 2) {  print <new(shift @ARGV); ( my $el2 = VCS::Lite->new(shift @ARGV);   my $dt1 = $el1->delta($el2); / my $diff = $uflag ? $dt1->udiff : $dt1->diff;   print $diff; =1 contents 2004-12-05T19:04:16updated U/home/ivor/dev/VCS/Lite/Repository/VCS-Lite-Repository-0.09/example/scripts/vldiff.plpath