use RISCOS::Filespec;
# Want the default functions and also the glob control functions
use RISCOS::File ':DEFAULT', '/glob/';

$ARGV[0] = "System:Modules" unless @ARGV;

while (my $pattern = shift)
{
  print "Default - glob returns full pathnames\n";
  foreach (glob ($pattern)) { print "  $_\n"; }
  
  glob_control (&fileglob_PrintOriginalPath);
  print "Alternative - glob retains the path variable\n";
  foreach (glob ($pattern)) { print "  $_\n"; }
  glob_control (&fileglob_PrintExpandedPaths);
}
