#!/usr/bin/perl
# wfrench.prerm
# Written by Charles Briscoe-Smith <cpbs@debian.org> based loosely on
# an older, unattributed, script.  I release this to the Public Domain.
# Ask <cpbs@debian.org> if you have problems with this script.

$words          = "/usr/dict/words";
$dict           = "/etc/dictionary";
$dict_rel_words = "../../etc/dictionary";

# $words should disappear when we become unconfigured, including during
# an upgrade.

# Remove $words if it points to $dict.
if ( -l $words and ( readlink $words eq $dict
                     or readlink $words eq $dict_rel_words )) {
  unlink $words or die "Can't remove `$words'.\n";
}