diff -Nur -x '*.orig' -x '*.rej' e-smith-pptpd-1.12.0/root/etc/e-smith/events/actions/pptp-interface-access mezzanine_patched_e-smith-pptpd-1.12.0/root/etc/e-smith/events/actions/pptp-interface-access --- e-smith-pptpd-1.12.0/root/etc/e-smith/events/actions/pptp-interface-access 2003-05-01 11:10:33.000000000 -0600 +++ mezzanine_patched_e-smith-pptpd-1.12.0/root/etc/e-smith/events/actions/pptp-interface-access 2007-01-14 20:57:38.000000000 -0700 @@ -33,11 +33,7 @@ my $db = esmith::ConfigDB->open; my $pptpd = $db->get('pptpd'); -my %ifaces = (); -foreach my $interface (split /,/, $pptpd->prop('Interfaces')) -{ - $ifaces{$interface} = 1; -} +my %ifaces = map { $_ => 1 } split /,/, $pptpd->prop('Interfaces') || ''; my $event = $ARGV[0] || die "Event name must be given\n"; my $ipparam = $ARGV[6] || "(none)";