mirror of
https://github.com/NaomiAmethyst/dots.git
synced 2025-04-13 09:30:06 +00:00
Merge branch 'master' of gitosis@majnematic.com:davesdots
This commit is contained in:
commit
4bb177d29a
3 changed files with 8 additions and 7 deletions
|
@ -3,10 +3,7 @@ export HISTFILE="${HOME}/.bash/.history"
|
|||
|
||||
export HISTSIZE=1000
|
||||
|
||||
# don't put duplicate lines in the history. See bash(1) for more options
|
||||
# don't overwrite GNU Midnight Commander's setting of `ignorespace'.
|
||||
export HISTCONTROL=$HISTCONTROL${HISTCONTROL+,}ignoredups
|
||||
# ... or force ignoredups and ignorespace
|
||||
# ignore both duplicates and whitespace in history
|
||||
export HISTCONTROL=ignoreboth
|
||||
|
||||
# append to the history file, don't overwrite it
|
||||
|
|
|
@ -4,6 +4,10 @@
|
|||
|
||||
use strict;
|
||||
use warnings;
|
||||
use LWP::Debug ();
|
||||
|
||||
# LWP::Authen::Negotiate is the Perl module that makes kerberos authenitcation
|
||||
# magically work
|
||||
|
||||
my $URL = 'https://www-s.acm.uiuc.edu/caffeine';
|
||||
|
||||
|
|
|
@ -96,10 +96,10 @@ for my $file (keys %links) {
|
|||
}
|
||||
|
||||
# Remove the destination if it exists and we were told to force an overwrite
|
||||
if($force && -f $dest) {
|
||||
unlink($dest) || warn "Couldn't unlink '$dest': $!\n";
|
||||
} elsif($force && -d $dest) {
|
||||
if($force && -d $dest) {
|
||||
rmtree($dest) || warn "Couldn't rmtree '$dest': $!\n";
|
||||
} elsif($force) {
|
||||
unlink($dest) || warn "Couldn't unlink '$dest': $!\n";
|
||||
}
|
||||
|
||||
symlink($src => $dest) ? $i++ : warn "Couldn't link '$src' to '$dest': $!\n";
|
||||
|
|
Loading…
Add table
Reference in a new issue