home *** CD-ROM | disk | FTP | other *** search
- 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);
- }
-