|
Lines 35-41
Link Here
|
| 35 |
{ local $/ = undef; $text = <I>; } |
35 |
{ local $/ = undef; $text = <I>; } |
| 36 |
close I; |
36 |
close I; |
| 37 |
my ($cwd) = getcwd(); |
37 |
my ($cwd) = getcwd(); |
| 38 |
$cwd =~ m|.*/(\w+-\w+)/([^/]+)| |
38 |
$cwd =~ m|.*/(\w+-\w+\|virtual)/([^/]+)| |
| 39 |
or die "Can't figure out category/package.. sorry!\n"; |
39 |
or die "Can't figure out category/package.. sorry!\n"; |
| 40 |
my ($category, $package_name) = ($1, $2); |
40 |
my ($category, $package_name) = ($1, $2); |
| 41 |
$text =~ s/^\*.*//ms; # don't need the fake entry |
41 |
$text =~ s/^\*.*//ms; # don't need the fake entry |
