3 # util/smartlinks.pl - The successor to util/catalog_tests.pl.
5 # Most of the contet of this program is now in the Text::SmartLinks
6 # module in the Text-SmartLinks/ subdiectory.
7 # This script is here to provide the necessary flags and defaults required
14 my $version = get_pugs_rev
();
15 # The directory where the Synopses live.
16 # Please don't set syn-dir to elsewhere unless you have a good reason.
17 $ENV{PUGS_SMARTLINKS
} = 1;
18 system qq($^X
-I
$FindBin::Bin
/Text-SmartLinks/lib
$FindBin::Bin
/Text-SmartLinks/script
/smartlinks
.pl
@ARGV --version
$version);
21 my $stdout = `$^X $FindBin::Bin/version_h.pl`;
22 my ($pugs_rev) = ($stdout =~ /Current version is (\d+)/);
24 die "Can't determine version of the pugs repository via 'svn info'";
25 # # if we don't have access to others' svk info
26 # # (which is the case on feather where i'm using
27 # # Audrey's pugs working copy), then parse pugs_version.h
29 # if (open my $in, "$FindBin::Bin/../src/Pugs/pugs_version.h") {
30 # warn "reading pugs_version.h...\n";
33 # ($pugs_rev) = ($str =~ /PUGS_SVN_REVISION\s+(\d+)/);