-----BEGIN PGP SIGNED MESSAGE-----
Moin,
subject says it all. As usual, all tests pass:
All tests successful.
u=2.72 s=0.79 cu=187.33 cs=25.67 scripts=954 tests=107891
Best wishes,
Tels
- --
Signed on Sun Jun 26 12:31:40 2005 with key 0x93B84C15.
Visit my photo gallery at http://bloodgate.com/photos/
PGP key on http://bloodgate.com/tels.asc or per email.
"People who are rather more than six feet tall and nearly as broad
across the shoulders often have uneventful journeys. People jump out at
them from behind rocks then say things like, 'Oh. Sorry. I thought you
were someone else.'" -- Terry Pratchett
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (GNU/Linux)
iQEVAwUBQr6HDncLPEOTuEwVAQGFIAf/ShvwUpNzoy6WKSlTSuWHWaE4ed3TQwOq
j1h2YBXVRc7RjsmKjqWF8qf2J3W1+ojbb9coyrL/MfxZ45h/Ax5n2HlUOGLZ9qwm
e77ndcA66e1dVo2YWhNbdq1Lc3olDA61LtE5QwJtkGF34rbuMUzVdXR9AEy69Mi/
AJVMiUzAvvMlOGvhu9iV+2Wf6xuCSR2PqMCrdUUDBFXae3fMM+5KR6xljrGwcU7C
FKvWza2WEG+MGZdJGn4zZoBTlTHQoBaB8tuxmaR9v2zFjeW6Cv1ZKBDAljFZXvDM
kBrRMLHI4jOQcGXC1NrOrAv46HpyFOc8RwZe1untMVgkpIEIaEc4AQ==
=4ObL
-----END PGP SIGNATURE-----
diff -ruN blead.patch.3/lib/AutoSplit.pm blead.patch.4/lib/AutoSplit.pm
--- blead.patch.3/lib/AutoSplit.pm 2003-08-14 08:07:09.000000000 +0200
+++ blead.patch.4/lib/AutoSplit.pm 2005-06-26 12:30:42.000000000 +0200
@@ -3,7 +3,6 @@
use 5.006_001;
use Exporter ();
use Config qw(%Config);
-use Carp qw(carp);
use File::Basename ();
use File::Path qw(mkpath);
use File::Spec::Functions qw(curdir catfile catdir);
@@ -11,7 +10,7 @@
our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Verbose, $Keep, $Maxlen,
$CheckForAutoloader, $CheckModTime);
-$VERSION = "1.04";
+$VERSION = "1.04_01";
@ISA = qw(Exporter);
@EXPORT = qw(&autosplit &autosplit_lib_modules);
@EXPORT_OK = qw($Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime);
@@ -168,6 +167,10 @@
autosplit_file($file, $autodir, $keep, $ckal, $ckmt);
}
+sub carp{
+ require Carp;
+ goto &Carp::carp;
+}
# This function is used during perl building/installation
# ./miniperl -e 'use AutoSplit; autosplit_lib_modules(@ARGV)' ...
@@ -405,14 +408,14 @@
print " deleting $file\n" if ($Verbose>=2);
my($deleted,$thistime); # catch all versions on VMS
do { $deleted += ($thistime = unlink $file) } while ($thistime);
- carp "Unable to delete $file: $!" unless $deleted;
+ carp ("Unable to delete $file: $!") unless $deleted;
}
closedir($outdir);
}
}
open(my $ts,">$al_idx_file") or
- carp "AutoSplit: unable to create timestamp file ($al_idx_file): $!";
+ carp ("AutoSplit: unable to create timestamp file ($al_idx_file): $!");
print $ts "# Index created by AutoSplit for $filename\n";
print $ts "# (file acts as timestamp)\n";
$last_package = '';
