diff options
author | 2008-11-29 02:19:38 -0800 | |
---|---|---|
committer | 2008-11-29 02:19:38 -0800 | |
commit | 6e99286277af84e850548f651f9ecdd88e455080 (patch) | |
tree | 1024a888b63c751248c38fae89b322e224ba8331 /show-patches.pl | |
parent | Rename for understanding. (diff) | |
download | mysql-extras-6e99286277af84e850548f651f9ecdd88e455080.tar.gz mysql-extras-6e99286277af84e850548f651f9ecdd88e455080.tar.bz2 mysql-extras-6e99286277af84e850548f651f9ecdd88e455080.zip |
Add ability to select a subset of patches easily for testing.
Diffstat (limited to 'show-patches.pl')
-rw-r--r-- | show-patches.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/show-patches.pl b/show-patches.pl new file mode 100644 index 0000000..5d8dede --- /dev/null +++ b/show-patches.pl @@ -0,0 +1,19 @@ +#!/usr/bin/perl +#use Data::Dumper; +use warnings; +use strict; +use lib "."; +use PatchIndexer; + +# Show patches for a given PN/PV +my $PN = $ARGV[0]; +chomp $PN; +my $PV = $ARGV[1]; +chomp $PV; + +my ($FH, $index); +open $FH,'<',"000_index.txt"; +my @index = parseIndex($FH); +my @newindex = selectPatches(\@index, $PN, $PV); +#print Dumper(@index); +print printIndex(\@newindex); |