Re^3: XP Perl Replacement for "Send to Clipboard as Filename"

wperl is particularly useful if you are writing gui apps (such as Perl/Tk).

Down side, any error/warning messages disappear into aether surrounding your computer.

Usually I use perl while coding/debugging, and wperl for release

Comment on Re^3: XP Perl Replacement for "Send to Clipboard as Filename" Select or Download Code

Replies are listed 'Best First'.

Re^4: XP Perl Replacement for "Send to Clipboard as Filename"
by afoken (Chancellor) on Aug 22, 2009 at 15:42 UTC

Down side, any error/warning messages disappear into aether surrounding your computer.

I once hacked a module that calls Win32::MsgBox() whenever a fatal error occurs, so you see errors even when running wperl:

package ExePM::Carp;

use strict;
use warnings;
use base 'Exporter';
use Carp qw();
use Win32;

our @EXPORT=qw(confess croak carp);
our @EXPORT_OK=qw(cluck die);

our $VERSION='1.00';

BEGIN { 
    *CORE::GLOBAL::die=$main::SIG{__DIE__}=\&ExePM::Carp::die;
}

sub confess { ExePM::Carp::die Carp::longmess @_; }
sub croak   { ExePM::Carp::die Carp::shortmess @_; }
sub carp    { warn Carp::shortmess @_; }
sub cluck   { warn Carp::longmess @_; }

sub die
{
    my ($arg,@rest)=@_;
    CORE::die($arg,@rest) if ref($arg) || $^S || Carp::longmess()=~/ev
+al [\{\']/m;
    
    $arg=join('',$arg,@rest);
    unless ($arg=~/\n$/) {
        my ($pkg,$file,$line)=caller(0);
        $arg.=" at $file line $line.\n";
    }
    Win32::MsgBox($arg,MB_ICONSTOP,$0);
    CORE::die($arg);
};

1;
[download]

Alexander

--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

[reply]
[d/l]


Clear questions and runnable code get the best and fastest answer
	PerlMonks