pst0VCS::Lite::Element 2004-12-05T19:01:23created 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 Getopt::Long;  my $output;  GetOptions(  'output=s' => \$output,  );   if (!@ARGV) {  print < vlpatch [--output outfile] original # take patch from stdin  C if --output is not specified, the patched file is put in place of 5 the original, and the original is renamed to *.orig   END  exit;  }   my $orig = shift @ARGV; B my ($pat,$patsrc) = @ARGV ? ($ARGV[0],$ARGV[0]) : (\*STDIN,'-'); " my $el1 = VCS::Lite->new($orig); < my $dt1 = VCS::Lite::Delta->new($patsrc,undef,$orig,$pat);  4 my $chg = $el1->patch($dt1) or die "Patch failed";   if (!$output) {  rename $orig "$orig.orig";  $output = $orig;  }  : open PAT,">$output" or die "Failed to write output, $!";  print PAT $chg->text; close PAT;  =1 contents 2004-12-05T19:04:16updated V/home/ivor/dev/VCS/Lite/Repository/VCS-Lite-Repository-0.09/example/scripts/vlpatch.plpath