Fixed perlishness

[invirt/packages/hvirt-config.git] / debian / hvirt-devconfig.postinst

diff --git a/debian/hvirt-devconfig.postinst b/debian/hvirt-devconfig.postinst
index b52fc9d..3deaf89 100644 (file)
--- a/debian/hvirt-devconfig.postinst
+++ b/debian/hvirt-devconfig.postinst
@@ -20,7 +20,7 @@ set -e
 case "$1" in
     configure)
        # Need to do it like this to avoid shell injection
 case "$1" in
     configure)
        # Need to do it like this to avoid shell injection

-       /usr/bin/perl -i -e '$r = `invirt-getconf kerberos.realm`; $r.chomp;
+       /usr/bin/perl -i -e '$r = `invirt-getconf kerberos.realm`; chomp($r);

        while(<>) { s/^([ \t]*default_realm *=).*$/\1 $r/m; print; }' /etc/krb5.conf.invirt
     ;;
 
        while(<>) { s/^([ \t]*default_realm *=).*$/\1 $r/m; print; }' /etc/krb5.conf.invirt
     ;;