Skip to content

Commit

Permalink
perl 5.12 compatiblity
Browse files Browse the repository at this point in the history
dear linux maintainers, your perl is outdated!
  • Loading branch information
Marc Chantreux committed Apr 27, 2012
1 parent 16de1b8 commit dd63152
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 5 deletions.
6 changes: 3 additions & 3 deletions t/10_MathExpr.t
Expand Up @@ -3,13 +3,13 @@ package Math;
use Modern::Perl;
use Persec;
use parent 'Persec';
use re qw< /xms >;
# use re qw< /xms >; # die! outdated linux distributions! die!
use Carp;

sub block;
sub expr;
sub value { m{\G \s* (\d+) \s*}cgx and return $1 }
sub operator { m{\G \s* ([-+*/]) \s*}cgx and return $1 }
sub value { m{\G \s* (\d+) \s*}cgxms and return $1 }
sub operator { m{\G \s* ([-+*/]) \s*}cgxms and return $1 }
sub block {
surroundedBy qw/ ( ) /
, \&expr
Expand Down
4 changes: 2 additions & 2 deletions t/nextString.t
Expand Up @@ -12,10 +12,10 @@ sub TOP {
package testB;
use Persec;
use parent 'Persec';
use re '/xms';
# use re '/xms'; perl 5.14 only

sub TOP {
m{ \G \w+ \s+ }cg or return 0;
m{ \G \w+ \s+ }cgxms or return 0;
nextString "YEAH" and return pos($_);
0;
}
Expand Down

0 comments on commit dd63152

Please sign in to comment.