This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bad semicolon in pp_ftrowned
authorAndy Lester <andy@petdance.com>
Fri, 4 Nov 2005 00:37:54 +0000 (18:37 -0600)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Fri, 4 Nov 2005 09:16:53 +0000 (09:16 +0000)
Message-ID: <20051104063753.GA3863@petdance.com>

p4raw-id: //depot/perl@25982

pp_sys.c

index 276fa67..31031a8 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3108,7 +3108,7 @@ PP(pp_ftrowned)
        RETPUSHUNDEF;
     switch (PL_op->op_type) {
     case OP_FTROWNED:
-       if (PL_statcache.st_uid == PL_uid);
+       if (PL_statcache.st_uid == PL_uid)
            RETPUSHYES;
        break;
     case OP_FTEOWNED: