1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
=item installable_config_shipper
=cut
sub installable_config_shipper {
my ($installable) = @_;
if ($installable =~ m{^ ( lib .* ) - ( [^-]+) $}x) {
my $prefix = $1;
my $type = $2;
return $installable
if $type eq 'dev';
return "$prefix-dev";
}
return $EMPTY;
}
sub blah {
my ($installable) = @_;
if ($installable =~ m{^ libhugs- .* $}x) {
print("BLAH!\n");
return;
}
print("MEOW!\n");
}
sub blah1 {
my @links1;
my @links2 = split("\n", "a\nb");
if (@links1 == @links2) {
print("YEP\n");
} else {
print("NOPE\n");
}
}
#blah("libhugs-libfrankie-dev");
#print(installable_config_shipper("doc"));
#print("\n");
blah1();
|
