···7excludes=""
8while getopts e: o; do
9 case "\$o" in
10- e) storeId=\$(echo "\$OPTARG" | sed -n "s|^$NIX_STORE/\\([a-z0-9]\{32\}\\)-.*|\1|p")
11 if [ -z "\$storeId" ]; then
12 echo "-e argument must be a Nix store path"
13 exit 1
···2021for i in "\$@"; do
22 if test ! -L "\$i" -a -f "\$i"; then
23- cat "\$i" | $perl/bin/perl -pe "s|$NIX_STORE/\$excludes[a-z0-9]{32}-|$NIX_STORE/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-|g" > "\$i.tmp"
24 if test -x "\$i"; then chmod +x "\$i.tmp"; fi
25 mv "\$i.tmp" "\$i"
26 fi
···7excludes=""
8while getopts e: o; do
9 case "\$o" in
10+ e) storeId=\$(echo "\$OPTARG" | $perl/bin/perl -ne "print \"\\\$1\" if m|^\Q$NIX_STORE\E/([a-z0-9]{32})-.*|")
11 if [ -z "\$storeId" ]; then
12 echo "-e argument must be a Nix store path"
13 exit 1
···2021for i in "\$@"; do
22 if test ! -L "\$i" -a -f "\$i"; then
23+ cat "\$i" | $perl/bin/perl -pe "s|\Q$NIX_STORE\E/\$excludes[a-z0-9]{32}-|$NIX_STORE/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-|g" > "\$i.tmp"
24 if test -x "\$i"; then chmod +x "\$i.tmp"; fi
25 mv "\$i.tmp" "\$i"
26 fi