#!/usr/bin/perl -w
use strict;
use Getopt::Long;
use File::PathConvert;

my $file;
GetOptions('file=s' => \$file);

die "need --file arg" unless defined $file;

print "File::PathConvert::realpath test\n";
print "File::PathConvert version#: " . $File::PathConvert::VERSION . "\n\n";

print "          \$FILE == $file\n";
print "REALPATH(\$FILE) == " . File::PathConvert::realpath($file) . "\n";

"some string" =~ /(\S*)/;
print "EXECUTING CODE ==> \"some string\" =~ /(\\S*)/;\n";

print "REALPATH(\$FILE) == " . File::PathConvert::realpath($file) . "\n";

# executing this regexp prior to any call of realpath ensures that it
# won't generate fall pray to $n bug
"" =~ /((((((((()))))))))/;
print "EXECUTING CODE ==> \"\" =~ /((((((((()))))))))/;\n";

print "REALPATH(\$FILE) == " . File::PathConvert::realpath($file) . "\n";