Bug#786849: a2p: "elelse"?

[積丹尼 Dan Jacobson]

Package: perl
Version: 5.20.2-6
File: /usr/bin/a2p

$ cat w.awk
{
 gsub(/[A-Za-z_:]/, "");
 if(sub(/.*,-1,-1$/, "NO SERVICE")){}else{sub(/../, "")};
# if(zz != L){print substr($2,0,5), zz; L = zz;}
}
$ a2p w.awk
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
			# this emulates #! processing on NIH machines.
			# (remove #! line above if indigestible)

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
			# process any FOO=bar switches

while (<>) {
    s/[A-Za-z_:]//g;
    if (s/.*,-1,-1$/NO SERVICE/) {
	;
  }
    elelse {
	s/..//;
    }

    # if(zz != L){print substr($2,0,5), zz; L = zz;}
}