From 319b9bc24e50028a8afb13afcbe2e02c62136da4 Mon Sep 17 00:00:00 2001 From: Chris Koeritz Date: Sat, 11 Nov 2017 22:21:24 -0500 Subject: [PATCH] gets rid of double slashes in aliases --- scripts/core/generate_aliases.pl | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/scripts/core/generate_aliases.pl b/scripts/core/generate_aliases.pl index 4ed01fb7..99f17cfd 100644 --- a/scripts/core/generate_aliases.pl +++ b/scripts/core/generate_aliases.pl @@ -43,11 +43,10 @@ sub make_alias { sub make_bash_alias { local($aliasname) = shift(@_); local($full_alias) = $aliasname; +#print "full alias is $full_alias\n"; $aliasname =~ s/^.*\/([^\/]*)/\1/; #print "alias became $aliasname\n"; - local($source_dir) = shift(@_); -#print "bash alias is $aliasname, dir is $source_dir\n"; - print she "define_yeti_alias $aliasname=\"bash $source_dir/$full_alias.sh\"\n"; + print she "define_yeti_alias $aliasname=\"bash $full_alias.sh\"\n"; } # makes an alias for a perl script given the alias name. @@ -56,9 +55,7 @@ sub make_perl_alias { local($full_alias) = $aliasname; $aliasname =~ s/^.*\/([^\/]*)/\1/; #print "alias became $aliasname\n"; - local($source_dir) = shift(@_); -#print "perl alias is $aliasname, dir is $source_dir\n"; - print she "define_yeti_alias $aliasname=\"perl $source_dir/$full_alias.pl\"\n"; + print she "define_yeti_alias $aliasname=\"perl $full_alias.pl\"\n"; } ############## -- 2.34.1