/usr/share/perl5/Shell/Command.pm is in libshell-command-perl 0.06-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 | package Shell::Command;
BEGIN {
$Shell::Command::AUTHORITY = 'cpan:FLORA';
}
BEGIN {
$Shell::Command::VERSION = '0.06';
}
# ABSTRACT: Cross-platform functions emulating common shell commands
# This must come first before ExtUtils::Command is loaded to ensure it
# takes effect.
BEGIN {
*CORE::GLOBAL::exit = sub {
CORE::exit($_[0]) unless caller eq 'ExtUtils::Command';
my $exit = $_[0] || 0;
die "exit: $exit\n";
};
}
use ExtUtils::Command ();
use Exporter;
@ISA = qw(Exporter);
@EXPORT = @ExtUtils::Command::EXPORT;
@EXPORT_OK = @ExtUtils::Command::EXPORT_OK;
use strict;
foreach my $func (@ExtUtils::Command::EXPORT,
@ExtUtils::Command::EXPORT_OK)
{
no strict 'refs';
*{$func} = sub {
local @ARGV = @_;
my $ret;
eval {
$ret = &{'ExtUtils::Command::'.$func};
};
if( $@ =~ /^exit: (\d+)\n$/ ) {
$ret = !$1;
}
elsif( $@ ) {
die $@;
}
else {
$ret = 1 unless defined $ret and length $ret;
}
return $ret;
};
}
1;
__END__
=pod
=encoding utf-8
=head1 NAME
Shell::Command - Cross-platform functions emulating common shell commands
=head1 SYNOPSIS
use Shell::Command;
mv $old_file, $new_file;
cp $old_file, $new_file;
touch @files;
=head1 DESCRIPTION
Thin wrapper around C<ExtUtils::Command>. See L<ExtUtils::Command> for a
description of available commands.
=head1 AUTHORS
=over 4
=item *
Michael G Schwern <schwern@pobox.com>
=item *
Randy Kobes <r.kobes@uwinnipeg.ca>
=item *
Florian Ragwitz <rafl@debian.org>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Michael G Schwern.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|