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