Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: The "right" way to make your script run with old versions of perl

by haukex (Bishop)
on Jun 08, 2016 at 15:59 UTC ( #1165156=note: print w/replies, xml ) Need Help??

in reply to The "right" way to make your script run with old versions of perl

Hi xorl,

The other solutions so far by Athanasius, Corion and MidLifeXis are cleaner and easier to maintain, and I would also suggest wrapping the functionality in a module that abstracts your Cool modules. But just for completeness, here's one way to directly implement the code you've shown (untested Update: now tested, and fixed a bug):

my $SUPERCOOL; BEGIN { if ( ($] ge '5.010') && eval("use Super::Cool::Module; 1") ) { $SUPERCOOL = 2 } elsif ( ($] lt '5.010') && ($] ge '5.008') && eval("use Almost::Cool::Module; 1") ) { $SUPERCOOL = 1 } else { $SUPERCOOL = 0 } }

You don't even have to make the conditions dependent on the versions, you can just try to use several modules and take whichever one is available. And a note on $]:

When comparing $], string comparison operators are highly recommended. The inherent limitations of binary floating point representation can sometimes lead to incorrect comparisons for some numbers on some architectures.

Hope this helps,
-- Hauke D

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1165156]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (6)
As of 2021-05-14 14:23 GMT
Find Nodes?
    Voting Booth?
    Perl 7 will be out ...

    Results (150 votes). Check out past polls.