projects
/
feisty_meow.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gets rid of double slashes in aliases
[feisty_meow.git]
/
scripts
/
core
/
generate_aliases.pl
diff --git
a/scripts/core/generate_aliases.pl
b/scripts/core/generate_aliases.pl
index 4ed01fb74641794fe21613eeb98ee0d4e35d1513..99f17cfd7e906137c6e257ce60a7024447889f9a 100644
(file)
--- 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;
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";
$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.
}
# 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($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";
}
##############
}
##############