File::Path::Stderr - like File::Path but print to STDERR

File-Path-Stderr documentation Contained in the File-Path-Stderr distribution.

Index

Code Index:

NAME

Top

File::Path::Stderr - like File::Path but print to STDERR

SYNOPSIS

Top

   use File::Path::Stderr;

   mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711);
   rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);

DESCRIPTION

Top

This is a very, very simple wrapper around File::Path. All exported functions function exactly the same as they do in File::Spec except rather than printing activity reports to the currently selected filehandle (which is normally STDOUT) the messages about what File::Path is doing are printed to STDERR.

AUTHOR

Top

Written by Mark Fowler <mark@twoshortplanks.com>

Copryright Mark Fowler 2003. All Rights Reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

BUGS

Top

None known.

Bugs should be reported to me via the CPAN RT system. http://rt.cpan.org/NoAuth/ReportBug.html?Queue=File::Path::Stderr.

SEE ALSO

Top

File::Path

File-Path-Stderr documentation Contained in the File-Path-Stderr distribution. 
package File::Path::Stderr;

use strict;
#use warnings;

use File::Path ();

require Exporter;
@File::Path::Stderr::ISA = qw(Exporter);
@File::Path::Stderr::EXPORT = qw(mkpath rmpath);
$File::Path::Stderr::VERSION = "1.00";


sub mkpath
{
  my $old = select();
  select(STDERR);
  File::Path::mkpath(@_);
  select($old);
}

sub rmpath
{
  my $old = select();
  select(STDERR);
  File::Path::rmpath(@_);
  select($old);
}


1;