gbarr / Scalar-List-Utils

Scalar::Util and List::Util perl modules

This URL has Read+Write access

Release 1.20
Graham Barr (author)
Wed May 13 14:51:19 -0700 2009
commit  7f5194f3b9ce59453539cbb897053e76abc166a0
tree    92d790d8dc97b9687c9bab413dd23bba2b36e88d
parent  8ce1f4f337d327717683b2b2b82ca4c35f542066
Scalar-List-Utils / xs_version.PL
100644 25 lines (24 sloc) 0.612 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

#!perl
use strict;
use warnings;
use File::Spec;
use Scalar::Util;
my $has_xs = eval { Scalar::Util->import('dualvar'); 1 };
my $xs_pm = File::Spec->catfile(qw(blib lib List Util XS.pm));
open(FH,$xs_pm) or die "Cannot open $xs_pm: $!\n";
my @file = <FH>;
foreach my $line (@file) {
  next unless $line =~ /# FIXUP/;
  if ($has_xs) {
    $line =~ s/^sub VERSION/sub _VERSION/;
    $line =~ s/^# VERSION/\$VERSION/;
  }
  else {
    $line =~ s/^sub _VERSION/sub VERSION/;
    $line =~ s/^\$VERSION/# VERSION/;
  }
}
unlink($xs_pm);
open(FH,">$xs_pm") or die "Cannot open $xs_pm: $!\n";
print FH @file;
close(FH);