small change, prefix can't be optional

This commit is contained in:
David Majnemer 2010-07-09 00:21:03 -07:00
parent ed573dafbd
commit dc45d30f9e

View file

@ -90,7 +90,7 @@ my $contained = (substr $scriptdir, 0, length($home)) eq $home;
my $prefix = undef; my $prefix = undef;
if ($contained) { if ($contained) {
$prefix = substr $scriptdir, length($home); $prefix = substr $scriptdir, length($home);
($prefix) = $prefix =~ m{^\/? (.+)? [^/]+ $}x; ($prefix) = $prefix =~ m{^\/? (.+) [^/]+ $}x;
} }
my $i = 0; # Keep track of how many links we added my $i = 0; # Keep track of how many links we added