quiet "Posible precedence issue with control flow operator" warning under 5.20+ ...

diff --git a/FS/FS/qual.pm b/FS/FS/qual.pm
index 07878e9..04ee0e1 100644 (file)
--- a/FS/FS/qual.pm
+++ b/FS/FS/qual.pm
@@ -180,7 +180,7 @@ sub part_export {
     my $self = shift;
     if ( $self->exportnum ) {
        return qsearchs('part_export', { exportnum => $self->exportnum } )
-               or die 'invalid exportnum';
+               || die 'invalid exportnum';
     }
     '';
 }