qa: update 527 to avoid a little perl bug
qa: update 527 to avoid a little perl bug

Dodge a buglet in die() line# handling in perl 5.22, when
stdin is the file stream.

adfernandes/pcp,wuliming/pcp,wuliming/pcp,adfernandes/pcp,wuliming/pcp,adfernandes/pcp,wuliming/pcp,adfernandes/pcp,adfernandes/pcp,wuliming/pcp,adfernandes/pcp,wuliming/pcp,wuliming/pcp,wuliming/pcp,adfernandes/pcp,adfernandes/pcp