diff options
Diffstat (limited to 'source/d/perl/doinst.sh')
| -rw-r--r-- | source/d/perl/doinst.sh | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/source/d/perl/doinst.sh b/source/d/perl/doinst.sh new file mode 100644 index 000000000..8d2debb06 --- /dev/null +++ b/source/d/perl/doinst.sh @@ -0,0 +1,13 @@ +#!/bin/sh +config() { + NEW="$1" + OLD="`dirname $NEW`/`basename $NEW .new`" + # If there's no config file by that name, mv it over: + if [ ! -r $OLD ]; then + mv $NEW $OLD + elif [ "`cat $OLD | md5sum`" = "`cat $NEW | md5sum`" ]; then # toss the redundant copy + rm $NEW + fi + # Otherwise, we leave the .new copy for the admin to consider... +} +config usr/lib/perl5/5.10.0/i486-linux-thread-multi/perllocal.pod.new |