nayakgi / perl-compiler

Automatically exported from code.google.com/p/perl-compiler
Other
0 stars 0 forks source link

use UNIVERSAL qw/VERSION/ #299

Open GoogleCodeExporter opened 9 years ago

GoogleCodeExporter commented 9 years ago
What steps will reproduce the problem?
> perlcc -r -e 'package Pickup; use UNIVERSAL qw( VERSION ); print qq{ok\n} if 
VERSION "UNIVERSAL";'

What is the expected output? 

> perl -e 'package Pickup; use UNIVERSAL qw( VERSION ); print qq{ok\n} if 
VERSION "UNIVERSAL";'
ok

What do you see instead?
no output from
> perlcc -r -e 'package Pickup; use UNIVERSAL qw( VERSION ); print qq{ok\n} if 
VERSION "UNIVERSAL";'

Please use labels and text to provide additional information.

Original issue reported on code.google.com by nicolas....@gmail.com on 13 Feb 2014 at 11:05

GoogleCodeExporter commented 9 years ago
Not yet fixed with ommit 5de930d9ea06b40ee0f4c06554fcf1d155a100f0
Author: Reini Urban <rurban@cpanel.net>
Date:   Thu Feb 13 23:33:34 2014 -0600

    C 1.45_03: Keep internal packages if used #300

    if savecv detects an internal core function, keep the package
    and prevent it from being optimzed away, i.e. mro with test #300.
    check %include_package

UNIVERSAL::VERSION is correctly defined as XS function

Original comment by reini.urban on 14 Feb 2014 at 5:56

GoogleCodeExporter commented 9 years ago
CORE testcase: t/CORE/op/universal.t:168
not ok 96
# Failed at t/CORE/op/universal.t line 168

Original comment by reini.urban on 8 May 2014 at 6:34

GoogleCodeExporter commented 9 years ago

Original comment by reini.urban on 11 Jun 2014 at 11:20

GoogleCodeExporter commented 9 years ago

Original comment by reini.urban on 11 Jun 2014 at 11:25

GoogleCodeExporter commented 9 years ago
More important failing testcase:

pcc 'package Pickup; use UNIVERSAL 1.0; print qq{ok\n} if $UNIVERSAL::VERSION;'

Original comment by reini.urban on 14 Jul 2014 at 5:01

GoogleCodeExporter commented 9 years ago
changed effort and prio

Original comment by reini.urban on 5 Aug 2014 at 2:31