diff options
Diffstat (limited to 'Build/tools/tlpkginfo')
-rwxr-xr-x | Build/tools/tlpkginfo | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Build/tools/tlpkginfo b/Build/tools/tlpkginfo index c4ffed26a1f..0f0e9a67c91 100755 --- a/Build/tools/tlpkginfo +++ b/Build/tools/tlpkginfo @@ -22,7 +22,7 @@ sub main return 0; } else { - die "Usage: $0 --ctan-dir PKGNAME or --ctan-root (not @ARGV).\n"; + die "Usage: $0 --ctan-dir PKGNAME or --ctan-root (not \"@ARGV\").\n"; } } @@ -142,9 +142,9 @@ sub catalogue_find_ctan_path return undef unless -r $catfile; # get the raw line from the catalogue file. (let's hope it's one line.) - my $ctan_path = `sed -n "s,^ *<ctan path='/,,p" $catfile`; + my $ctan_path = `sed -n "s,^ *<ctan path='/,,p" $catfile`; return undef unless $ctan_path; # in case it's not present at all - + # extract just the dir or file name, without options, etc. (my $ctan_loc = $ctan_path) =~ s,'/>,,; $ctan_loc =~ s,' .*,,; |