Commit | Line | Data |
---|---|---|
f25e8c9f | 1 | #!/usr/bin/env perl |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | if (grep { $_ eq 'upgrade' } @ARGV) { | |
6 | printf "%s %s (%s)\n", @$_ for | |
7 | ['Inst', 'foo', 'some foo info'], | |
8 | ['Somethingelse', 'bar', 'some bar info'], | |
9 | ['Remv', 'baz', 'some baz info']; | |
10 | } | |
11 | elsif (grep { $_ eq 'update' } @ARGV) { | |
12 | print "OK\n"; | |
13 | } |