Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use strict;
- use warnings;
- #only linux
- #use diagnostics;
- # - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - - - -
- sub in_function {
- my $file = shift;
- glob($file) or die ("$file file was not foundn"); #this fails second time called
- # this is ok second time called
- #my @dummy = glob($file) or die ("$file file was not foundn");
- }
- # - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - - -
- my $file = "/tmp/file1*.pdf";
- glob($file) or die ("$file file was not foundn");
- in_function($file);
- $file = "/tmp/file2*.pdf";
- glob($file) or die ("$file file was not foundn");
- in_function($file);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement